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