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)
#f
(,(rename 'module-env)
(,(rename 'load-module) ',(car mod+imps)))
',(cdr mod+imps)
(,(rename 'load-module)
(,(rename 'quote) ,(car mod+imps))))
(,(rename 'quote) ,(cdr mod+imps))
#f)
res)))
(else