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 a75c5a5bcf47f0aacbda7fbd7439800fe990b6d7..95ff3943f67342abe17196f8938bbd0a34e6bf68 100644 (file)
--- 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 2f24dbea9571bf79d8af77621f143237e88ab6a7..fe6636680d8e104413348dc5e0414f2f66d55f79 100644 (file)
--- 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