From 6b65e8f83c6cea7c4a3c7bbf63a76e88885029c2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Mar 1989 02:16:13 +0000
Subject: [PATCH] Change `identify-world' to accept an output port as its
 optional argument, rather than a cmdl.

---
 v7/src/runtime/savres.scm | 46 ++++++++++++++++++++-------------------
 1 file changed, 24 insertions(+), 22 deletions(-)

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 3f6764633..0cec04b18 100644
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.7 1988/12/30 23:30:21 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.8 1989/03/14 02:16:13 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -79,7 +79,7 @@ MIT in each case. |#
 			  (clear console-output-port)
 			  (abort->top-level
 			   (lambda (cmdl)
-			     (identify-world cmdl)
+			     (identify-world (cmdl/output-port cmdl))
 			     (event-distributor/invoke! event:after-restart))))
 			(begin
 			  (event-distributor/invoke! event:after-restart)
@@ -128,22 +128,24 @@ MIT in each case. |#
 (define world-identification "Scheme")
 (define time-world-saved)
 
-(define (identify-world #!optional cmdl)
-  (let ((cmdl (if (default-object? cmdl) (nearest-cmdl) cmdl)))
-    (let ((port (cmdl/output-port cmdl)))
-      (newline port)
-      (write-string world-identification port)
-      (if time-world-saved
-	  (begin
-	    (write-string " saved on " port)
-	    (write-string (decoded-time/date-string time-world-saved) port)
-	    (write-string " at " port)
-	    (write-string (decoded-time/time-string time-world-saved) port)))
-      (newline port)
-      (write-string "  Release " port)
-      (write-string microcode-id/release-string port)
-      (for-each-system!
-       (lambda (system)
-	 (newline port)
-	 (write-string "  " port)
-	 (write-string (system/identification-string system) port))))))
\ No newline at end of file
+(define (identify-world #!optional port)
+  (let ((port
+	 (if (default-object? port)
+	     (current-output-port)
+	     (guarantee-output-port port))))
+    (newline port)
+    (write-string world-identification port)
+    (if time-world-saved
+	(begin
+	  (write-string " saved on " port)
+	  (write-string (decoded-time/date-string time-world-saved) port)
+	  (write-string " at " port)
+	  (write-string (decoded-time/time-string time-world-saved) port)))
+    (newline port)
+    (write-string "  Release " port)
+    (write-string microcode-id/release-string port)
+    (for-each-system!
+     (lambda (system)
+       (newline port)
+       (write-string "  " port)
+       (write-string (system/identification-string system) port)))))
\ No newline at end of file
-- 
2.25.1