From df1ad0d146b78a4eeefaf0e0eb33de7cbf0354ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= Date: Thu, 28 Jun 2001 16:37:19 +0000 Subject: [PATCH] * fluids.c (scm_c_with_fluid): Use scm_list_1() instead of SCM_LIST1. --- libguile/ChangeLog | 5 +++++ libguile/fluids.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * fluids.c (scm_c_with_fluid): Use scm_list_1() instead of + SCM_LIST1. + 2001-06-28 Keisuke Nishida * 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