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 a2edafd0072eaba0a45b9cbe6366d329feabfeaf..0a97827b44644a14d0d49c398612df87f60ac220 100644 (file)
--- 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