From 0378b55629b1df2828ec535e7a2b5d5f0995ebbf Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Apr 2000 00:37:20 +0000 Subject: [PATCH] Allow CHAR-SET-UNION and CHAR-SET-INTERSECTION to take any number of arguments. Eliminate use of CHAR->ASCII and ASCII->CHAR. --- v7/src/runtime/chrset.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/chrset.scm b/v7/src/runtime/chrset.scm index 5c6bee484..72e599481 100644 --- a/v7/src/runtime/chrset.scm +++ b/v7/src/runtime/chrset.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: chrset.scm,v 14.9 2000/04/11 18:17:49 cph Exp $ +$Id: chrset.scm,v 14.10 2000/04/12 00:37:20 cph Exp $ Copyright (c) 1988-2000 Massachusetts Institute of Technology @@ -128,6 +128,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (define char-set:newline) (define (initialize-package!) + (set! char-set:not-01 (ascii-range->char-set #x02 #x100)) (set! char-set:upper-case (ascii-range->char-set #x41 #x5B)) (set! char-set:lower-case (ascii-range->char-set #x61 #x7B)) (set! char-set:numeric (ascii-range->char-set #x30 #x3A)) @@ -142,7 +143,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (char-set-union char-set:alphabetic char-set:numeric)) (set! char-set:standard (char-set-union char-set:graphic (char-set char:newline))) - (set! char-set:not-01 (ascii-range->char-set #x02 #x100)) (set! char-set:newline (char-set char:newline)) unspecific) -- 2.25.1