From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 15 Jan 2016 00:55:40 +0000 (-0700)
Subject: src/runtime/savres.scm (disk-save): Save time world was restored.
X-Git-Tag: mit-scheme-pucked-9.2.12~373^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a03d3824ce8962eba027b9680f05d23b25e38b24;p=mit-scheme.git

src/runtime/savres.scm (disk-save): Save time world was restored.
---

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index 235756424..395f9d053 100644
--- a/src/runtime/savres.scm
+++ b/src/runtime/savres.scm
@@ -41,6 +41,7 @@ USA.
 
 (define world-id "Image")
 (define time-world-saved #f)
+(define time-world-restored #f)
 (define *within-restore-window?*)
 
 (define (initialize-package!)
@@ -79,6 +80,7 @@ USA.
 	   (read-microcode-tables!)
 	   (lambda ()
 	     (set! time-world-saved time)
+	     (set! time-world-restored (get-universal-time))
 	     (let-fluid *within-restore-window?* #t
 	       (lambda ()
 		 (event-distributor/invoke! event:after-restore)))