Don't clear the screen on restore.

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 6e63540b49679178f24499d8c664850a9b4b1541..b9ae6cf6de7acd56a792c69fa633078983a9f04c 100644 (file)
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: savres.scm,v 14.33 2000/03/01 23:47:06 cph Exp $
+$Id: savres.scm,v 14.34 2001/10/05 19:11:15 cph Exp $
 
-Copyright (c) 1988-2000 Massachusetts Institute of Technology
+Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -16,7 +16,8 @@ General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.
 |#
 
 ;;;; Save/Restore World
@@ -63,7 +64,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
         (start-thread-timer)
         (cond ((string? identify)
                (set! world-identification identify)
-               (clear console-output-port)
                (abort->top-level
                 (lambda (cmdl)
                   (identify-world (cmdl/port cmdl))