From 0b62ce2a2b07055819dcb3c2167503865a935093 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 13 Feb 1998 22:25:32 +0000
Subject: [PATCH] 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.

---
 v7/src/runtime/char.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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))
-- 
2.25.1