diff options
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/fluids.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 058620928..410790cd5 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2001-06-28 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> + + * fluids.c (scm_c_with_fluid): Use scm_list_1() instead of + SCM_LIST1. + 2001-06-28 Keisuke Nishida <kxn30@po.cwru.edu> * list.h (scm_list_1, scm_list_2, scm_list_3, scm_list_4, scm_list_5, diff --git a/libguile/fluids.c b/libguile/fluids.c index 3f092ffff..ea6c16069 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -253,7 +253,7 @@ SCM 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 |