Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Trying to load libraries for scribble doc examples.

Browse source
This commit is contained in:
Alex Shinn 2015-04-20 00:11:44 +09:00
parent 4e75fbab49
commit 732df3a136
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/snow/commands.scm
View file

@ -331,7 +331,9 @@
(lib-name (library-name (car lib+files))) (lib-name (library-name (car lib+files)))
(exports (cond ((assq 'export (cdar lib+files)) => cdr) (else '()))) (exports (cond ((assq 'export (cdar lib+files)) => cdr) (else '())))
(mod (guard (exn (else #f)) (mod (guard (exn (else #f))
#f)) (begin
(load path (environment '(meta)))
(load-module lib-name))))
(defs (map (lambda (x) (defs (map (lambda (x)
(let ((val (and mod (module-ref mod x)))) (let ((val (and mod (module-ref mod x))))
`(,x ,val ,(object-source val)))) `(,x ,val ,(object-source val))))