From: robblau <robblau>
Date: Wed, 21 Jun 1995 18:19:39 +0000 (+0000)
Subject: TIME-WORLD-SAVED is now initially #F so that IDENTIFY-WORLD does not
X-Git-Tag: 20090517-FFI~6252
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7399bbe4e7456d47f8ef6588ec6264891eb6b78d;p=mit-scheme.git

TIME-WORLD-SAVED is now initially #F so that IDENTIFY-WORLD does not
crash if DISK-SAVE has never been called in this world.
---

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index a2edafd00..0a97827b4 100644
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: savres.scm,v 14.27 1992/11/24 01:12:26 gjr Exp $
+$Id: savres.scm,v 14.28 1995/06/21 18:19:39 robblau Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -149,7 +149,7 @@ MIT in each case. |#
     ((ucode-primitive load-band) filename)))
 
 (define world-identification "Scheme")
-(define time-world-saved)
+(define time-world-saved #f)
 
 (define (identify-world #!optional port)
   (let ((port