diff options
| -rw-r--r-- | scheme/plt/geiser/modules.ss | 2 |
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) |