From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 13 Aug 2010 20:58:42 +0000 (+0000)
Subject: Ignore out-of-date uncompressed debugging info files.
X-Git-Tag: 20101212-Gtk~99
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1ac54984e037aa9763a587071d60456ff6879f28;p=mit-scheme.git

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 84cd154f8..8b65fad21 100644
--- 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)))