mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

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

Browse source 
SCM_LIST1.
This commit is contained in:
Martin Grabmüller 2001-06-28 16:37:19 +00:00
parent 20ec6e2638
commit df1ad0d146
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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> 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, * list.h (scm_list_1, scm_list_2, scm_list_3, scm_list_4, scm_list_5,

2
libguile/fluids.c
View file

@ -253,7 +253,7 @@ SCM
scm_c_with_fluid (SCM fluid, SCM value, SCM (*cproc) (), void *cdata) scm_c_with_fluid (SCM fluid, SCM value, SCM (*cproc) (), void *cdata)
#define FUNC_NAME "scm_c_with_fluid" #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); cproc, cdata);
} }
#undef FUNC_NAME #undef FUNC_NAME