summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-06-28 16:37:19 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-06-28 16:37:19 +0000
commitdf1ad0d146b78a4eeefaf0e0eb33de7cbf0354ff (patch)
tree50ac2f0d3b939080812fefffaf5e2e22be19f84d
parent20ec6e26380780bbd00d6c56c9788a0f6ae93ab3 (diff)
downloadguile-df1ad0d146b78a4eeefaf0e0eb33de7cbf0354ff.tar.gz
* fluids.c (scm_c_with_fluid): Use scm_list_1() instead of
SCM_LIST1.
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/fluids.c2
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