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

another fix for CM+DrRacket interaction

Browse Source 
(cherry picked from commit 264ec77abd)
This commit is contained in:
Matthew Flatt 2010-07-26 09:41:33 -05:00 committed by Eli Barzilay
parent 0b88d27f8f
commit 5d12f72a52
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/cm.rkt
View File

@ -180,7 +180,9 @@
(try-delete-file tmp-path))))))
(define (get-source-sha1 p)
(with-handlers ([exn:fail:filesystem? (lambda (exn) #f)])
(with-handlers ([exn:fail:filesystem? (lambda (exn)
(and (regexp-match? #rx#"[.]rkt$" (path->bytes p))
(get-source-sha1 (path-replace-suffix p #".ss"))))])
(call-with-input-file* p sha1)))
(define (get-dep-sha1s deps up-to-date read-src-syntax mode must-exist?)