guile/guile-core/libguile ChangeLog fluids.c

[Martin Grabmueller]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Martin Grabmueller <address@hidden>     01/06/28 09:37:19

Modified files:
        guile-core/libguile: ChangeLog fluids.c 

Log message:
        * fluids.c (scm_c_with_fluid): Use scm_list_1() instead of
        SCM_LIST1.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1456&tr2=1.1457&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/fluids.c.diff?cvsroot=OldCVS&tr1=1.41&tr2=1.42&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1456 
guile/guile-core/libguile/ChangeLog:1.1457
--- guile/guile-core/libguile/ChangeLog:1.1456  Wed Jun 27 18:11:58 2001
+++ guile/guile-core/libguile/ChangeLog Thu Jun 28 09:37:18 2001
@@ -1,3 +1,8 @@
+2001-06-28  Martin Grabmueller  <address@hidden>
+
+       * fluids.c (scm_c_with_fluid): Use scm_list_1() instead of
+       SCM_LIST1.
+
 2001-06-28  Keisuke Nishida  <address@hidden>
 
        * list.h (scm_list_1, scm_list_2, scm_list_3, scm_list_4, scm_list_5,
Index: guile/guile-core/libguile/fluids.c
diff -u guile/guile-core/libguile/fluids.c:1.41 
guile/guile-core/libguile/fluids.c:1.42
--- guile/guile-core/libguile/fluids.c:1.41     Wed Jun 27 18:11:58 2001
+++ guile/guile-core/libguile/fluids.c  Thu Jun 28 09:37:19 2001
@@ -253,7 +253,7 @@
 scm_c_with_fluid (SCM fluid, SCM value, SCM (*cproc) (), void *cdata)
 #define FUNC_NAME "scm_c_with_fluid"
 {
-  return scm_c_with_fluids (scm_list_1 (fluid), SCM_LIST1 (value),
+  return scm_c_with_fluids (scm_list_1 (fluid), scm_list_1 (value),
                            cproc, cdata);
 }
 #undef FUNC_NAME