From bc61e532e412de53a900bc84bde656105fde7501 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 13:21:42 -0800
Subject: [PATCH] Fix dangling references to guarantee procedures.

---
 src/runtime/parse.scm   | 2 +-
 src/runtime/runtime.pkg | 3 ---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 084be93e6..5f6713669 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -651,7 +651,7 @@ USA.
 	      (bytevector-u8-set! bytevector index (car bytes)))
 	    bytevector)
 	  (begin
-	    (guarantee-byte object)
+	    (guarantee byte? object)
 	    (loop (cons object bytes)))))))
 
 (define (handler:close-parenthesis port db ctx char)
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 0d0fb5cd0..58cdbff0b 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1129,8 +1129,6 @@ USA.
 	  bytevector-u8-ref
 	  bytevector-u8-set!
 	  bytevector?
-	  guarantee-byte
-	  guarantee-bytevector
 	  make-bytevector
 	  string->utf8
 	  utf8->string))
@@ -3598,7 +3596,6 @@ USA.
   (files "tagging")
   (parent (runtime))
   (export ()
-	  guarantee-tagged-object
 	  object-tagger
 	  set-tagged-object-unparser-method!
 	  tag-object
-- 
2.25.1