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

support (import (only (rename ...))) in addition to the other way around (fixes #431)

Browse source
This commit is contained in:
Alex Shinn 2017-08-05 17:31:24 +09:00
parent da28ca8953
commit 2a712b0715
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/meta-7.scm
View file

@ -115,15 +115,13 @@
(and (not (eq? 'only (car x))) (and (not (eq? 'only (car x)))
(module-exports (module-exports
(find-module (car mod-name+imports))))))) (find-module (car mod-name+imports)))))))
;; (if (not (eq? 'only (car x)))
;; (let ((unbound
;; (id-filter (lambda (i) (not (memq i imp-ids))) (cddr x))))
;; (if (pair? unbound)
;; (warn "import excepting unbound identifiers" unbound))))
(cons (car mod-name+imports) (cons (car mod-name+imports)
(case (car x) (case (car x)
((only) ((only)
(if imp-ids
(map (lambda (imp) (or (assq imp imp-ids) imp))
(cddr x)) (cddr x))
(cddr x)))
((except) ((except)
(id-filter (lambda (i) (not (memq i (cddr x)))) imp-ids)) (id-filter (lambda (i) (not (memq i (cddr x)))) imp-ids))
((rename) ((rename)