From 671b0372704ffcceada6e8902b9ef3745bfcf60d Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 4 Mar 2013 23:33:35 +0900 Subject: [PATCH] Fixing module? predicate for export-all modules. --- lib/chibi/modules.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/modules.scm b/lib/chibi/modules.scm index 3146e20c..c1d1ead3 100644 --- a/lib/chibi/modules.scm +++ b/lib/chibi/modules.scm @@ -14,7 +14,9 @@ (lp (cons x res)))))))) (define (module? x) - (and (vector? x) (>= (vector-length x) 4) (list? (vector-ref x 0)))) + (and (vector? x) + (>= (vector-length x) 4) + (or (list? (vector-ref x 0)) (not (vector-ref x 0))))) (define (module-ast mod) (vector-ref mod 3)) (define (module-ast-set! mod x) (vector-set! mod 3 x))