Ignore out-of-date uncompressed debugging info files.

Fixes

(load "x")
(pp foo)
;Output: (named-lambda (foo x y z) ...)

;; Edit x.scm and recompile.

(load "x")
(pp foo)
;Output: #[compiled-procedure foo ...]

diff --git a/src/runtime/infutl.scm b/src/runtime/infutl.scm
index 84cd154f8763e5491127426adb3ff7d0d5211ec5..8b65fad213972300eb30fa3a5f79ead15decac2f 100644 (file)
--- a/src/runtime/infutl.scm
+++ b/src/runtime/infutl.scm
@@ -736,7 +736,8 @@ USA.
              (if-not-found))
             ((and (pathname=? (caar entries) compressed-file)
                   (cddar entries)
-                  (or (file-exists? (cadar entries))
+                  (or (file-modification-time<? compressed-file
+                                                (cadar entries))
                       (begin
                         (set-cdr! (cdar entries) #f)
                         #f)))