From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Jan 2017 00:30:36 +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~135
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=64403be6d25d98e8c7bbb24d4eb7e68d3800ab7e;p=mit-scheme.git

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

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 4fdba62a8..30729f24d 100644
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -33,7 +33,7 @@ USA.
   (let ((port
 	 (if (default-object? port)
 	     (current-output-port)
-	     (guarantee-output-port port 'WORLD-REPORT)))
+	     (guarantee textual-output-port? port 'WORLD-REPORT)))
 	(flags (cons (cons (console-thread) "console")
 		     (if (default-object? thread-flags)
 			 '()