From 264ec77abdc9c5763189af01c75c689ebf63b281 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 --- 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 ab896228cc..ef4e1cd820 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -181,7 +181,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?)