Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 08:57:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Fixing full unicode versions of char- predicates.

Browse source 
Thanks to Barry Fishman.
This commit is contained in:
Alex Shinn 2012-08-16 20:48:07 +09:00
parent 93ba0926a7
commit 748ccc06ea
2 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/scheme/char.sld
View file

@ -3,7 +3,10 @@
(import (scheme base)) (import (scheme base))
(cond-expand (cond-expand
(full-unicode (full-unicode
(import (chibi char-set full) (chibi iset base) (only (scheme) digit-value)) (import (chibi char-set full)
(chibi char-set base)
(chibi iset base)
(only (scheme) digit-value))
(include "char/full.scm") (include "char/full.scm")
(include "char/case-offsets.scm")) (include "char/case-offsets.scm"))
(else (else

10
lib/scheme/char/full.scm
View file

@ -1,9 +1,9 @@
(define (char-alphabetic? ch) (iset-contains? char-set:letter ch)) (define (char-alphabetic? ch) (char-set-contains? char-set:letter ch))
(define (char-lower-case? ch) (iset-contains? char-set:lower-case ch)) (define (char-lower-case? ch) (char-set-contains? char-set:lower-case ch))
(define (char-upper-case? ch) (iset-contains? char-set:upper-case ch)) (define (char-upper-case? ch) (char-set-contains? char-set:upper-case ch))
(define (char-numeric? ch) (iset-contains? char-set:digit ch)) (define (char-numeric? ch) (char-set-contains? char-set:digit ch))
(define (char-whitespace? ch) (iset-contains? char-set:whitespace ch)) (define (char-whitespace? ch) (char-set-contains? char-set:whitespace ch))
(define (char-downcase ch) (define (char-downcase ch)
(let ((n (char->integer ch))) (let ((n (char->integer ch)))