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 fa8ce869da614d815aa572ffd78a201a086d65fe..d24e855e7e174ad5951f8861b6f5fdbbc313daf8 100644 (file)
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -78,14 +78,17 @@ USA.
 \f
 (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 16a20778cc0535e585c1f4f1b13652342f5e5514..a06f8a547ebe2193eea97cbd0f8d84581f1af473 100644 (file)
--- 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