fix `enter!' reloading on a ".ss" path

2010-07-23 14:14:18 -05:00 · 2010-07-23 14:14:18 -05:00 · 82588438c2
commit 82588438c2
parent b8df3839e6
1 changed files with 7 additions and 1 deletions
--- a/collects/racket/enter.rkt
+++ b/collects/racket/enter.rkt
@ -81,7 +81,13 @@
        (orig path name))))

 (define (get-timestamp path)
-  (file-or-directory-modify-seconds path #f (lambda () -inf.0)))
+  (let ([v (file-or-directory-modify-seconds path #f (lambda () -inf.0))])
+    (if (and (equal? v -inf.0)
+             (regexp-match? #rx#"[.]rkt$" (path->bytes path)))
+        (file-or-directory-modify-seconds (path-replace-suffix path #".ss")
+                                          #f 
+                                          (lambda () -inf.0))
+        v)))

 (define (check-latest mod)
  (let ([mpi (module-path-index-join mod #f)]