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

adjust cm to not cmopile when it's not supposed to use source

Browse Source
This commit is contained in:
Matthew Flatt 2012-03-13 16:46:52 -06:00
parent 9838cb37e8
commit 01f1fd56b4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/compiler/cm.rkt
View File

@ -668,7 +668,10 @@
[default-handler (current-load/use-compiled)]
[modes (use-compiled-file-paths)])
(define (compilation-manager-load-handler path mod-name)
(cond [(not mod-name)
(cond [(or (not mod-name)
;; Don't trigger compilation if we're not supposed to work with source:
(and (pair? mod-name)
(not (car mod-name))))
(trace-printf "skipping: ~a mod-name ~s" path mod-name)]
[(not (or (file-exists? path)
(let ([p2 (rkt->ss path)])