From a9d6ea01e10bbfb2453f95d2ee499885917f25a6 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 21 Feb 1988 18:14:55 +0000
Subject: [PATCH] DISK-SAVE now returns false when dumped and true when
 restored.

the suspension interrupt handler uses this to exit after dumping but
not after restoring.
---
 v7/src/runtime/intrpt.scm | 10 +++++-----
 v7/src/runtime/system.scm |  6 +++---
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/v7/src/runtime/intrpt.scm b/v7/src/runtime/intrpt.scm
index 251c74dbb..1e0b6ac86 100644
--- a/v7/src/runtime/intrpt.scm
+++ b/v7/src/runtime/intrpt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/intrpt.scm,v 13.47 1987/12/14 00:13:58 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/intrpt.scm,v 13.48 1988/02/21 18:14:55 jinx Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -72,10 +72,10 @@
   (fluid-let (((access *error-hook* error-system)
 	       (lambda (environment message irritant substitute-environment?)
 		 (%exit))))
-    (disk-save (merge-pathnames (string->pathname "scheme_suspend")
-				(home-directory-pathname))
-	       true))
-  (%exit))
+    (if (not (disk-save (merge-pathnames (string->pathname "scheme_suspend")
+					 (home-directory-pathname))
+			true))
+	(%exit))))
 
 ;;; Keyboard Interrupts
 
diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm
index e2e1d2005..67bfa0534 100644
--- a/v7/src/runtime/system.scm
+++ b/v7/src/runtime/system.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 13.51 1987/11/17 20:11:40 jinx Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 13.52 1988/02/21 18:13:33 jinx Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -86,7 +86,7 @@
 		    (set-interrupt-enables! ie)
 		    (set! date-world-saved d)
 		    (set! time-world-saved t)
-		    *the-non-printing-object*)
+		    false)
 		  (lambda (ie)
 		    (set-interrupt-enables! ie)
 		    (set! date-world-saved d)
@@ -98,7 +98,7 @@
 			   (set! world-identification identify)
 			   (restart-world))
 			  (else
-			   *the-non-printing-object*)))))))
+			   true)))))))
 
 (set! disk-save
   (setup-image save-world))
-- 
2.25.1