mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-09 19:00: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 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));