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

Adding (library X) feature support to chibi-genstatic library expander.

Browse source
This commit is contained in:
Alex Shinn 2015-02-22 16:15:55 +09:00
parent dc5e7e397d
commit 1c112fc008
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tools/chibi-genstatic
View file

@ -212,6 +212,7 @@
((and) (every check-cond-expand (cdr x))) ((and) (every check-cond-expand (cdr x)))
((or) (any check-cond-expand (cdr x))) ((or) (any check-cond-expand (cdr x)))
((not) (not (check-cond-expand (cadr x)))) ((not) (not (check-cond-expand (cadr x))))
((library) (eval `(find-module ',(cadr x)) (%meta-env)))
(else (error "cond-expand: bad feature" x))) (else (error "cond-expand: bad feature" x)))
(memq (identifier->symbol x) *features*))) (memq (identifier->symbol x) *features*)))
(define (extract-module-name file) (define (extract-module-name file)