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

3
libguile/sort.c
View file

@ -367,8 +367,7 @@ 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 env = SCM_EXTEND_ENV (SCM_CAR (SCM_CODE (code)),
scm_cons (*(SCM *) a,
scm_cons (*(SCM *) b, SCM_EOL)),
SCM_ENV (code));