Remove unused and unexported guarantee-FOO procedures.

diff --git a/src/runtime/char-set.scm b/src/runtime/char-set.scm
index 3a4dba94dc2a013ff71effe1c135929cb77e2df0..0f4277c2e010b24c09fefaf12afa65df4694d638 100644 (file)
--- a/src/runtime/char-set.scm
+++ b/src/runtime/char-set.scm
@@ -653,6 +653,4 @@ USA.
                   (let loop ((i #x20))
                     (or (not (fix:< i le))
                         (and (fix:= 0 (bytevector-u8-ref low i))
-                             (loop (fix:+ i 1))))))))))))
-
-(define-guarantee 8-bit-char-set "an 8-bit char-set")
\ No newline at end of file
+                             (loop (fix:+ i 1))))))))))))
\ No newline at end of file

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index 6072215832e72d5c1a12cf9db07ceb2d110aa111..257d61ad0eababb5f92a31104e6b00e387028a60 100644 (file)
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -37,8 +37,6 @@ USA.
 (define-integrable char-code-limit #x110000)
 (define-integrable char-bits-limit #x10)
 
-(define-guarantee char "character")
-
 (define (make-char code bits)
   (guarantee-limited-index-fixnum code char-code-limit 'make-char)
   (guarantee-limited-index-fixnum bits char-bits-limit 'make-char)
@@ -181,8 +179,6 @@ USA.
        (fix:<= 2 object)
        (fix:<= object 36)))
 
-(define-guarantee radix "radix")
-
 (define (digit->char digit #!optional radix)
   (let ((radix
         (if (default-object? radix)
@@ -375,9 +371,6 @@ USA.
   (and (index-fixnum? object)
        (fix:< object char-code-limit)))
 
-(define-guarantee unicode-char "a Unicode character")
-(define-guarantee unicode-scalar-value "a Unicode scalar value")
-
 (define (%char->scalar-value char #!optional caller)
   (let ((n (char->integer char)))
     (guarantee unicode-scalar-value? n caller)