From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 3 Oct 1996 14:08:12 +0000 (+0000)
Subject: Fixed the number of code bits to be correct for either 7 bit or 16 bit
X-Git-Tag: 20090517-FFI~5375
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9eaccd96080d8873082a561e9479d32e6bcc0a8;p=mit-scheme.git

Fixed the number of code bits to be correct for either 7 bit or 16 bit
characters.
---

diff --git a/v8/src/compiler/midend/typedb.scm b/v8/src/compiler/midend/typedb.scm
index f88e5d020..0ebe54bb4 100644
--- a/v8/src/compiler/midend/typedb.scm
+++ b/v8/src/compiler/midend/typedb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: typedb.scm,v 1.12 1996/07/27 03:29:10 adams Exp $
+$Id: typedb.scm,v 1.13 1996/10/03 14:08:12 adams Exp $
 
 Copyright (c) 1996 Massachusetts Institute of Technology
 
@@ -251,11 +251,12 @@ MIT in each case. |#
 			    'function))
 
 
-;;; MIT Scheme charatcers have a 7 code-bits + 5 bucky-bits encoding,
-;;; hence some results will fit in bytes:
+;;; MIT Scheme characters have a 16 code-bits + 5 bucky-bits encoding,
+;;; hence some results will fit in bytes and others in small
+;;; non-negative fixnums.
 
 (define-operator-type (make-primitive-procedure 'CHAR-CODE)
-  (primitive-procedure-type (list type:character) type:unsigned-byte
+  (primitive-procedure-type (list type:character) type:small-fixnum>=0
 			    'function))
 
 (define-operator-type (make-primitive-procedure 'CHAR-BITS)
@@ -263,7 +264,7 @@ MIT in each case. |#
 			    'function))
 
 (define-operator-type (make-primitive-procedure 'MAKE-CHAR)
-  (primitive-procedure-type (list type:unsigned-byte type:unsigned-byte)
+  (primitive-procedure-type (list type:small-fixnum>=0 type:unsigned-byte)
 			    type:character
 			    'function))