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

adding meta info for source file for (meta) library

Browse source
This commit is contained in:
Alex Shinn 2015-07-26 23:02:35 +09:00
parent 2500569861
commit 05362f3d21
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/meta-7.scm
View file

@ -232,7 +232,7 @@
(body (cddr expr))
(tmp (rename 'tmp))
(this-module (rename '*this-module*))
(add-module! (rename 'add-module!))
(_add-module! (rename 'add-module!))
(_make-module (rename 'make-module))
(_define (rename 'meta-define))
(_lambda (rename 'lambda))
@ -301,10 +301,10 @@
(,_else (lp (,_cdr ls) res)))))))
(,_set! ,this-module (,_quote ()))
,@body
(,add-module! (,_quote ,name)
(,_make-module (extract-exports)
#f
(,_reverse ,this-module)))
(,_add-module! (,_quote ,name)
(,_make-module (extract-exports)
#f
(,_reverse ,this-module)))
(,_set! ,this-module ,tmp)
(,(rename 'pop-this-path)))))))
@ -410,7 +410,7 @@
(cons '(chibi primitive)
(make-module #f #f (lambda (env) (primitive-environment 7))))
(cons '(meta)
(make-module #f (current-environment) '()))
(make-module #f (current-environment) '((include "meta-7.scm"))))
(cons '(srfi 0)
(make-module (list 'cond-expand)
(current-environment)