From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Jan 2019 00:32:41 +0000 (-0800)
Subject: Remove unused and unexported guarantee-FOO procedures.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=57e3fed73f97caaf0ea51233a259d673320003b6;p=mit-scheme.git

Remove unused and unexported guarantee-FOO procedures.
---

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)