Fix dangling references to guarantee procedures.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 084be93e659473ff74935e81f3b9a862c5743a49..5f67136698c526c97254e93341ffe1c6cd2be366 100644 (file)
--- 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 0d0fb5cd09a6ccec14b492f130ac698aa1cb0e6c..58cdbff0bd82206af745a7c3304f159df606cea9 100644 (file)
--- 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