diff options
Diffstat (limited to 'libguile/gh_list.c')
-rw-r--r-- | libguile/gh_list.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/gh_list.c b/libguile/gh_list.c index 71af25ee8..6935ffc4a 100644 --- a/libguile/gh_list.c +++ b/libguile/gh_list.c @@ -59,27 +59,27 @@ gh_length (SCM l) them all together into a single list, which is returned. This is equivalent to the Scheme procedure (append list1 list2 ...) */ SCM -gh_append(SCM args) +gh_append (SCM args) { - return scm_append(args); + return scm_append (args); } SCM -gh_append2(SCM l1, SCM l2) +gh_append2 (SCM l1, SCM l2) { - return scm_append(scm_listify(l1, l2, SCM_UNDEFINED)); + return scm_append (scm_list_2 (l1, l2)); } SCM gh_append3(SCM l1, SCM l2, SCM l3) { - return scm_append(scm_listify(l1, l2, l3, SCM_UNDEFINED)); + return scm_append (scm_list_3 (l1, l2, l3)); } SCM -gh_append4(SCM l1, SCM l2, SCM l3, SCM l4) +gh_append4 (SCM l1, SCM l2, SCM l3, SCM l4) { - return scm_append(scm_listify(l1, l2, l3, l4, SCM_UNDEFINED)); + return scm_append (scm_list_4 (l1, l2, l3, l4)); } /* gh_reverse() is defined as a macro in gh.h */ |