From 86dd794c2659882b4adb469d2153ba1d010ffb7c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 May 2018 21:29:35 -0700
Subject: [PATCH] Add missing procedure in host-adapter.

---
 src/runtime/host-adapter.scm | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
2.25.1