mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-09 10:50:27 +02:00
Code Activity

Fix

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-08-29 03:27:33 +00:00
parent 815ce8d58a
commit 4c6fe5fca5
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/sort.c
View file

@ -367,11 +367,10 @@ lsubrless (SCM less, const void *a, const void *b)
static int static int
closureless (SCM code, const void *a, const void *b) closureless (SCM code, const void *a, const void *b)
{ {
SCM env, next; SCM env = SCM_EXTEND_ENV (SCM_CAR (SCM_CODE (code)),
env = SCM_EXTEND_ENV (SCM_CAR (SCM_CODE (code)), scm_cons (*(SCM *) a,
scm_cons (*(SCM *) a, scm_cons (*(SCM *) b, SCM_EOL)),
scm_cons (*(SCM *) b, SCM_EOL)), SCM_ENV (code));
SCM_ENV (code));
/* Evaluate the closure body */ /* Evaluate the closure body */
return SCM_NFALSEP (scm_eval_body (SCM_CDR (SCM_CODE (code)), env)); return SCM_NFALSEP (scm_eval_body (SCM_CDR (SCM_CODE (code)), env));
} /* closureless */ } /* closureless */