* Added (r6rs unicode) library.

This commit is contained in:
Abdulaziz Ghuloum 2007-06-17 17:30:15 +03:00
parent df9ef4849d
commit 94fb15620f
2 changed files with 6 additions and 4 deletions

Binary file not shown.

View File

@ -119,6 +119,7 @@
[syncase (r6rs syntax-case) #t] [syncase (r6rs syntax-case) #t]
[rfl (r6rs arithmetic flonums) #t] [rfl (r6rs arithmetic flonums) #t]
[mutable-pairs (r6rs mutable-pairs) #t] [mutable-pairs (r6rs mutable-pairs) #t]
[unicode (r6rs unicode) #t]
[cm (chez modules) #t] [cm (chez modules) #t]
[$all (ikarus system $all) #f] [$all (ikarus system $all) #f]
[$pairs (ikarus system $pairs) #f] [$pairs (ikarus system $pairs) #f]
@ -151,6 +152,7 @@
[r (r6rs) #t] [r (r6rs) #t]
[syncase (r6rs syntax-case) #t] [syncase (r6rs syntax-case) #t]
[mutable-pairs (r6rs mutable-pairs) #t] [mutable-pairs (r6rs mutable-pairs) #t]
[unicode (r6rs unicode) #t]
[rfl (r6rs arithmetic flonums) #t] [rfl (r6rs arithmetic flonums) #t]
[cm (chez modules) #t] [cm (chez modules) #t]
[$all (ikarus system $all) #f] [$all (ikarus system $all) #f]
@ -299,10 +301,10 @@
[integer->char i r] [integer->char i r]
[char->integer i r] [char->integer i r]
[char-whitespace? i r] [char-whitespace? i r]
[char-downcase i] [char-downcase i unicode]
[char-upcase i] [char-upcase i unicode]
[char-titlecase i] [char-titlecase i unicode]
[char-foldcase i] [char-foldcase i unicode]
[string? i r] [string? i r]
[string i r] [string i r]
[make-string i r] [make-string i r]