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

handle include-shared in analyze-module

Browse source
This commit is contained in:
Alex Shinn 2021-04-26 14:27:11 +09:00
parent 42aab7905c
commit ef9daf22c8
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/modules.scm
View file

@ -117,6 +117,12 @@
(lp (append (map include-source (cdar ls)) (cdr ls)) res)) (lp (append (map include-source (cdar ls)) (cdr ls)) res))
((include-library-declarations) ((include-library-declarations)
(lp (append (append-map file->sexp-list (map resolve-file (cdar ls))) (cdr ls)) res)) (lp (append (append-map file->sexp-list (map resolve-file (cdar ls))) (cdr ls)) res))
((include-shared include-shared-optionally)
(for-each
(lambda (file)
(let ((f (string-append file *shared-object-extension*)))
(cond ((find-module-file f) => (lambda (path) (load path env))))))
(cdar ls)))
((begin body) ((begin body)
(let lp2 ((ls2 (cdar ls)) (res res)) (let lp2 ((ls2 (cdar ls)) (res res))
(cond (cond