From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Feb 2017 06:06:34 +0000 (-0800)
Subject: Fix char-ascii? to be 7-bit instead of 8.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~147
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06e5589b5ec3b2cd6c78c127bd46e0e0a0e26fdc;p=mit-scheme.git

Fix char-ascii? to be 7-bit instead of 8.

Also create char-8-bit?.
---

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index fa8ce869d..d24e855e7 100644
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -78,14 +78,17 @@ USA.
 
 (define (8-bit-char? object)
   (and (char? object)
-       (fix:< (char->integer object) #x100)))
+       (char-8-bit? object)))
+
+(define-integrable (char-8-bit? char)
+  (fix:< (char->integer char) #x100))
 
 (define (ascii-char? object)
   (and (char? object)
        (char-ascii? object)))
 
 (define-integrable (char-ascii? char)
-  (fix:< (char->integer char) #x100))
+  (fix:< (char->integer char) #x80))
 
 (define (char=? x y)
   (fix:= (char->integer x) (char->integer y)))
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 16a20778c..a06f8a547 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1335,6 +1335,7 @@ USA.
 	  ;; END deprecated bindings
 	  8-bit-char?
 	  ascii-char?
+	  char-8-bit?
 	  char->digit
 	  char->integer
 	  char->name