Add missing procedure in host-adapter.

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 956cf55c4bb841aa96dd4a022684d87aa45dde3a..dd447c6eac607ddf0213f8754c788d473dd9a7fc 100644 (file)
--- 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