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.

diff --git a/v7/src/runtime/intrpt.scm b/v7/src/runtime/intrpt.scm
index 251c74dbb473128aa481ade6fdd9e6d040f2f3a0..1e0b6ac86c3f1aff100696e59d6b184012d7db8c 100644 (file)
--- 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 e2e1d20058d087d5b73f4e2ebe8e1afe0d2fede0..67bfa05345d9d487cef39ae8449ff8838f053090 100644 (file)
--- 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))