summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-19 01:45:39 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-19 01:45:39 +0100
commitee45fc1bf84b6bf1304a621e66713963f2740f84 (patch)
tree61ee6b33e3fba7cd7bdb55f85c5933f640a10805
parentdd4cc0dfd32ca26dad6f02c08294f8e89f5edab2 (diff)
downloadgeiser-chez-ee45fc1bf84b6bf1304a621e66713963f2740f84.tar.gz
geiser-chez-ee45fc1bf84b6bf1304a621e66713963f2740f84.tar.bz2
Irrelevant golfing.
-rw-r--r--scheme/plt/geiser/modules.ss2
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/plt/geiser/modules.ss b/scheme/plt/geiser/modules.ss
index 1818ecd..9bdede1 100644
--- a/scheme/plt/geiser/modules.ss
+++ b/scheme/plt/geiser/modules.ss
@@ -130,7 +130,7 @@
(define (classify-ids ids ns)
(let loop ((ids ids) (procs '()) (vars '()))
(cond ((null? ids) `((procs ,@(reverse procs)) (vars ,@(reverse vars))))
- ((procedure? (namespace-variable-value (car ids) #t (lambda () #f) ns))
+ ((procedure? (namespace-variable-value (car ids) #t (const #f) ns))
(loop (cdr ids) (cons (car ids) procs) vars))
(else (loop (cdr ids) procs (cons (car ids) vars))))))
(let-values (((reg syn)