From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 2 Jun 1987 23:44:38 +0000 (+0000)
Subject: Bug in dumpworld.
X-Git-Tag: 20090517-FFI~13421
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8953147fbb96f60fe0a09928fef9a347f9056523;p=mit-scheme.git

Bug in dumpworld.
---

diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm
index 6f697cbc9..8fb1b1581 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.46 1987/04/27 17:33:22 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 13.47 1987/06/02 23:44:38 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -109,7 +109,10 @@
 	 (lambda (filename after-dumping after-restoring)
 	   (let ((ie (set-interrupt-enables! interrupt-mask-none)))
 	     ((if (primitive filename)
-		  after-restoring
+		  (lambda (ie)
+		    ((access reset! primitive-io))
+		    ((access reset! working-directory-package))
+		    (after-restoring ie))
 		  after-dumping)
 	      ie))))))
 
@@ -250,4 +253,5 @@
 	   false)
 	  (else (beep) (query prompt)))))
 
+)
 )
\ No newline at end of file