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

repair cm handling of extensions

Browse Source 
svn: r10045
This commit is contained in:
Matthew Flatt 2008-05-30 16:08:28 +00:00
parent 20a9a3e0b3
commit cbb7db6a2c
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) (cons (path->bytes p)
external-deps))))) external-deps)))))
d)))]) 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)]) [code-dir (get-code-dir mode path)])
(when code
(when (not (directory-exists? code-dir)) (when (not (directory-exists? code-dir))
(make-directory* code-dir)) (make-directory* code-dir))
(with-compile-output (with-compile-output
@ -176,7 +180,7 @@
(if (> ss-sec (current-seconds)) (if (> ss-sec (current-seconds))
", which appears to be in the future" ", 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)) (trace-printf "end compile: ~a" path))
(define (format-date date) (define (format-date date)