renaming quote in repl-import

This commit is contained in:
Alex Shinn 2011-11-30 09:20:38 +09:00
parent ab5398bba0
commit 46008a0cc0

View file

@ -219,8 +219,9 @@
(cons `(,(rename '%import) (cons `(,(rename '%import)
#f #f
(,(rename 'module-env) (,(rename 'module-env)
(,(rename 'load-module) ',(car mod+imps))) (,(rename 'load-module)
',(cdr mod+imps) (,(rename 'quote) ,(car mod+imps))))
(,(rename 'quote) ,(cdr mod+imps))
#f) #f)
res))) res)))
(else (else