summaryrefslogtreecommitdiff
path: root/libguile/gh_list.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gh_list.c')
-rw-r--r--libguile/gh_list.c14
1 files changed, 9 insertions, 5 deletions
diff --git a/libguile/gh_list.c b/libguile/gh_list.c
index 7bdd9440d..c52af4223 100644
--- a/libguile/gh_list.c
+++ b/libguile/gh_list.c
@@ -45,7 +45,7 @@
#include "libguile/gh.h"
/* returns the length of a list */
-unsigned long
+scm_bits_t
gh_length (SCM l)
{
return gh_scm2ulong (scm_length (l));
@@ -58,22 +58,26 @@ gh_length (SCM l)
/* gh_append() takes a args, which is a list of lists, and appends
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)
+SCM
+gh_append(SCM args)
{
return scm_append(args);
}
-SCM gh_append2(SCM l1, SCM l2)
+SCM
+gh_append2(SCM l1, SCM l2)
{
return scm_append(scm_listify(l1, l2, SCM_UNDEFINED));
}
-SCM gh_append3(SCM l1, SCM l2, SCM l3)
+SCM
+gh_append3(SCM l1, SCM l2, SCM l3)
{
return scm_append(scm_listify(l1, l2, l3, SCM_UNDEFINED));
}
-SCM gh_append4(SCM l1, SCM l2, SCM l3, SCM l4)
+SCM
+gh_append4(SCM l1, SCM l2, SCM l3, SCM l4)
{
return scm_append(scm_listify(l1, l2, l3, l4, SCM_UNDEFINED));
}