From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 May 2018 04:29:35 +0000 (-0700)
Subject: Add missing procedure in host-adapter.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=86dd794c2659882b4adb469d2153ba1d010ffb7c;p=mit-scheme.git

Add missing procedure in host-adapter.
---

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 956cf55c4..dd447c6ea 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -89,6 +89,10 @@ USA.
 				   (list (cons 'name name) ...)))))
 	      env))
 
+    (if (unbound? env 'define-print-method)
+	(eval '(define (define-print-method predicate print-method)
+		 unspecific)
+	      env))
     (if (unbound? env 'standard-print-method)
 	(eval '(define (standard-print-method name #!optional get-parts)
 		 (simple-unparser-method name