mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* values.c (scm_values): Build lists of length 1 by using

Browse source 
scm_list_1 instead of using scm_cons.
This commit is contained in:
Dirk Herrmann 2003-07-12 06:44:57 +00:00
parent 0b7d5c6c1c
commit 192de9a4d6
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 @@
2003-07-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
* values.c (scm_values): Build lists of length 1 by using
scm_list_1 instead of using scm_cons.
2003-07-10 Kevin Ryde <user42@zip.com.au> 2003-07-10 Kevin Ryde <user42@zip.com.au>
* deprecation.c (scm_c_issue_deprecation_warning_fmt): Add va_end. * deprecation.c (scm_c_issue_deprecation_warning_fmt): Add va_end.

2
libguile/values.c
View file

@ -62,7 +62,7 @@ SCM_DEFINE (scm_values, "values", 0, 0, 1,
else else
{ {
result = scm_make_struct (scm_values_vtable, SCM_INUM0, result = scm_make_struct (scm_values_vtable, SCM_INUM0,
scm_cons (args, SCM_EOL)); scm_list_1 (args));
} }
return result; return result;