diff options
Diffstat (limited to 'libguile/sort.c')
-rw-r--r-- | libguile/sort.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/sort.c b/libguile/sort.c index 76867843a..f2edb5a17 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -86,6 +86,7 @@ char *alloca (); #include "libguile/ramap.h" #include "libguile/alist.h" #include "libguile/feature.h" +#include "libguile/root.h" #include "libguile/vectors.h" #include "libguile/validate.h" @@ -385,10 +386,7 @@ closureless (SCM code, const void *a, const void *b) static int applyless (SCM less, const void *a, const void *b) { - return SCM_NFALSEP (scm_apply (less, - scm_cons (*(SCM *) a, - scm_cons (*(SCM *) b, SCM_EOL)), - SCM_EOL)); + return SCM_NFALSEP (scm_call_2 (less, *(SCM *) a, *(SCM *) b)); } /* applyless */ static cmp_fun_t |