Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing module? predicate for export-all modules.

Browse source
This commit is contained in:
Alex Shinn 2013-03-04 23:33:35 +09:00
parent 7dc3a63c21
commit 671b037270
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/modules.scm
View file

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