fix 'enter!' and extension-implemented modules

svn: r9077
This commit is contained in:
Matthew Flatt 2008-03-24 14:04:33 +00:00
parent 1be4258c44
commit c75933cd40

View File

@ -68,8 +68,10 @@
;; Record module timestamp and dependencies:
(let ([mod (make-mod name
(get-timestamp path)
(apply append
(map cdr (module-compiled-imports code))))])
(if code
(apply append
(map cdr (module-compiled-imports code)))
null))])
(hash-table-put! loaded path mod))
;; Evaluate the module:
(eval code))