From 5427d8c546527ce9dacde8a4394cb1b56dba5cbf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Feb 2008 18:45:23 +0000 Subject: [PATCH] fix enter! svn: r8757 --- collects/scheme/enter.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/scheme/enter.ss b/collects/scheme/enter.ss index b5417197a7..e08cfe159e 100644 --- a/collects/scheme/enter.ss +++ b/collects/scheme/enter.ss @@ -68,9 +68,8 @@ ;; Record module timestamp and dependencies: (let ([mod (make-mod name (get-timestamp path) - (call-with-values - (lambda () (module-compiled-imports code)) - append))]) + (apply append + (map cdr (module-compiled-imports code))))]) (hash-table-put! loaded path mod)) ;; Evaluate the module: (eval code))