From ee45fc1bf84b6bf1304a621e66713963f2740f84 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 19 Mar 2010 01:45:39 +0100 Subject: Irrelevant golfing. --- scheme/plt/geiser/modules.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scheme/plt/geiser') 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) -- cgit v1.2.3