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

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
closureless (SCM code, const void *a, const void *b)
{
SCM env, next;
env = SCM_EXTEND_ENV (SCM_CAR (SCM_CODE (code)),
scm_cons (*(SCM *) a,
scm_cons (*(SCM *) b, SCM_EOL)),
SCM_ENV (code));
SCM env = SCM_EXTEND_ENV (SCM_CAR (SCM_CODE (code)),
scm_cons (*(SCM *) a,
scm_cons (*(SCM *) b, SCM_EOL)),
SCM_ENV (code));
/* Evaluate the closure body */
return SCM_NFALSEP (scm_eval_body (SCM_CDR (SCM_CODE (code)), env));
} /* closureless */