From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 21:21:42 +0000 (-0800)
Subject: Fix dangling references to guarantee procedures.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~201
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bc61e532e412de53a900bc84bde656105fde7501;p=mit-scheme.git

Fix dangling references to guarantee procedures.
---

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