suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repair cm handling of extensions

Browse Source 
svn: r10045

original commit: cbb7db6a2c8bb715b831d7a00910fc1aad730459
This commit is contained in:
Matthew Flatt 2008-05-30 16:08:28 +00:00
parent 0d57734b19
commit 9f2bf9963f
1 changed files with 39 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/cm.ss
View File

@ -141,8 +141,12 @@
(cons (path->bytes p)
external-deps)))))
d)))])
(get-module-code path mode #:source-reader read-src-syntax))]
(get-module-code path mode
compile
(lambda (a b) #f) ; extension handler
#:source-reader read-src-syntax))]
[code-dir (get-code-dir mode path)])
(when code
(when (not (directory-exists? code-dir))
(make-directory* code-dir))
(with-compile-output
@ -176,7 +180,7 @@
(if (> ss-sec (current-seconds))
", which appears to be in the future"
""))))
(write-deps code mode path external-deps)))))])))
(write-deps code mode path external-deps))))))])))
(trace-printf "end compile: ~a" path))
(define (format-date date)