From 57e3fed73f97caaf0ea51233a259d673320003b6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 6 Jan 2019 16:32:41 -0800
Subject: [PATCH] Remove unused and unexported guarantee-FOO procedures.

---
 src/runtime/char-set.scm | 4 +---
 src/runtime/char.scm     | 7 -------
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/src/runtime/char-set.scm b/src/runtime/char-set.scm
index 3a4dba94d..0f4277c2e 100644
--- 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 607221583..257d61ad0 100644
--- 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)
-- 
2.25.1