From 7399bbe4e7456d47f8ef6588ec6264891eb6b78d Mon Sep 17 00:00:00 2001
From: robblau <robblau>
Date: Wed, 21 Jun 1995 18:19:39 +0000
Subject: [PATCH] TIME-WORLD-SAVED is now initially #F so that IDENTIFY-WORLD
 does not crash if DISK-SAVE has never been called in this world.

---
 v7/src/runtime/savres.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.25.1