diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-19 01:45:39 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-19 01:45:39 +0100 |
| commit | ee45fc1bf84b6bf1304a621e66713963f2740f84 (patch) | |
| tree | 61ee6b33e3fba7cd7bdb55f85c5933f640a10805 /scheme/plt/geiser/modules.ss | |
| parent | dd4cc0dfd32ca26dad6f02c08294f8e89f5edab2 (diff) | |
| download | geiser-chez-ee45fc1bf84b6bf1304a621e66713963f2740f84.tar.gz geiser-chez-ee45fc1bf84b6bf1304a621e66713963f2740f84.tar.bz2 | |
Irrelevant golfing.
Diffstat (limited to 'scheme/plt/geiser/modules.ss')
| -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) |