fix enter!

svn: r8757
This commit is contained in:
Matthew Flatt 2008-02-21 18:45:23 +00:00
parent a8e07cded2
commit 5427d8c546

View File

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