From 9b64a92b205192e9ffae86e9c91328a5e1015b10 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 14 Oct 2018 21:54:12 -0700
Subject: [PATCH] Add back guarantee since it's needed for compiling svm.

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

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