1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Mike Sperber
(define-structure unicode-data (export create-unicode-tables)
(open scheme
finite-types destructuring define-record-types bitwise tables
(subset srfi-13 (string-contains
string-index string-prefix? string-suffix? string-skip
string-trim-both))
(subset srfi-14 (char-set:hex-digit char-set:whitespace))
(subset srfi-1 (iota find filter-map))
srfi-23 ; ERROR
sort
)
(files "../big/compact-table.scm" ; so we run on older Scheme 48
"../env/unicode-category.scm"
unicode-data))
|
