diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 03:27:33 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-29 03:27:33 +0000 |
| commit | 4c6fe5fca51bf2524678bec0c34f408bf01650e3 (patch) | |
| tree | ba086c6e039351d9622d1c1b9399e97f9f05f954 | |
| parent | 815ce8d58a3b993fc905fa8445c7386348e935a0 (diff) | |
Fix
| -rw-r--r-- | libguile/sort.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/libguile/sort.c b/libguile/sort.c index 2e4f57e10..aab0f842f 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -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 */ |