From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 13 Feb 1998 22:25:32 +0000 (+0000)
Subject: Update CHAR-CODE-LIMIT and CHAR-INTEGER-LIMIT for wide characters.
X-Git-Tag: 20090517-FFI~4857
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b62ce2a2b07055819dcb3c2167503865a935093;p=mit-scheme.git

Update CHAR-CODE-LIMIT and CHAR-INTEGER-LIMIT for wide characters.
This should have been part of the previous update, but these constants
are unused, so no harm done.
---

diff --git a/v7/src/runtime/char.scm b/v7/src/runtime/char.scm
index 112c8b934..2302831c6 100644
--- a/v7/src/runtime/char.scm
+++ b/v7/src/runtime/char.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: char.scm,v 14.8 1998/01/20 18:40:24 adams Exp $
+$Id: char.scm,v 14.9 1998/02/13 22:25:32 adams Exp $
 
 Copyright (c) 1988-1998 Massachusetts Institute of Technology
 
@@ -42,9 +42,9 @@ MIT in each case. |#
   make-char char-code char-bits char->integer integer->char char->ascii
   char-ascii? ascii->char char-upcase char-downcase)
 
-(define-integrable char-code-limit #x80)
+(define-integrable char-code-limit #x10000)
 (define-integrable char-bits-limit #x20)
-(define-integrable char-integer-limit #x1000)
+(define-integrable char-integer-limit #x200000)
 
 (define-integrable (chars->ascii chars)
   (map char->ascii chars))