From 5d12f72a521b38f01358b48339ca89655df59d52 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 Jul 2010 09:41:33 -0500 Subject: [PATCH] another fix for CM+DrRacket interaction (cherry picked from commit 264ec77abdc9c5763189af01c75c689ebf63b281) --- collects/compiler/cm.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index a14edcd918..1e0edcaaa9 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -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?)