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))