From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Jan 2017 08:37:18 +0000 (-0800)
Subject: Fix bug: guarantee-X doesn't return a useful value when compiled with 9.2.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~134
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2a14b20eae40b599a8ed7848ae0eb7df371a834;p=mit-scheme.git

Fix bug: guarantee-X doesn't return a useful value when compiled with 9.2.
---

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index a75c5a5bc..95ff3943f 100644
--- a/src/runtime/savres.scm
+++ b/src/runtime/savres.scm
@@ -128,7 +128,7 @@ USA.
   (let ((port
 	 (if (default-object? port)
 	     (current-output-port)
-	     (guarantee-output-port port 'IDENTIFY-WORLD))))
+	     (guarantee textual-output-port? port 'IDENTIFY-WORLD))))
     (write-mit-scheme-copyright port #!default #!default #t)
     (newline port)
     (write-mit-scheme-license port #!default #t)
diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index 2f24dbea9..fe6636680 100644
--- a/src/runtime/version.scm
+++ b/src/runtime/version.scm
@@ -52,7 +52,7 @@ USA.
   (let ((port
 	 (if (default-object? port)
 	     (current-output-port)
-	     (guarantee-output-port port 'WRITE-MIT-SCHEME-COPYRIGHT)))
+	     (guarantee textual-output-port? port 'WRITE-MIT-SCHEME-COPYRIGHT)))
 	(cmark (if (default-object? cmark) "(C)" cmark))
 	(line-prefix (if (default-object? line-prefix) "" line-prefix)))
     (write-words (let ((years (map number->string copyright-years)))
@@ -75,7 +75,7 @@ USA.
   (let ((port
 	 (if (default-object? port)
 	     (current-output-port)
-	     (guarantee-output-port port 'WRITE-MIT-SCHEME-LICENSE)))
+	     (guarantee textual-output-port? port 'WRITE-MIT-SCHEME-LICENSE)))
 	(line-prefix (if (default-object? line-prefix) "" line-prefix))
 	(short? (if (default-object? short?) #f short?)))
     (let loop