From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Oct 2018 04:54:12 +0000 (-0700)
Subject: Add back guarantee since it's needed for compiling svm.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~215
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9b64a92b205192e9ffae86e9c91328a5e1015b10;p=mit-scheme.git

Add back guarantee since it's needed for compiling svm.
---

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index e7d28a1f2..0c32242fd 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -41,6 +41,20 @@ USA.
     (eq? 'unbound (environment-reference-type env name)))
 
   (let ((env (->environment '())))
+
+    (if (unbound? env 'guarantee)
+	(eval `(define (guarantee predicate object #!optional caller)
+		 (if (predicate object)
+		     object
+		     (error:wrong-type-argument
+		      object
+		      (string-append "object satisfying "
+				     (call-with-output-string
+				       (lambda (port)
+					 (write predicate port))))
+		      caller)))
+	      env))
+
     (if (unbound? env 'bundle)
 	(eval '(define-syntax bundle
 		 (syntax-rules ()