mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
00691b64f1
Many still import (chibi), and as (scheme base) is somewhat more expensive to load at present these are changed to cond-expand. Many libraries also rely on (srfi 33), and these have been changed to a cond-expand first trying (srfi 60) where available. Also fixing a few portability concerns (duplicate imports of the same binding), and adding a few libraries missing from lib-tests.scm.
25 lines
924 B
Scheme
25 lines
924 B
Scheme
;; Character sets for Unicode boundaries, TR29.
|
|
;; This code is written by Alex Shinn and placed in the
|
|
;; Public Domain. All warranties are disclaimed.
|
|
|
|
(define-library (chibi char-set boundary)
|
|
(cond-expand
|
|
(chibi (import (chibi)))
|
|
(else (import (scheme base))))
|
|
(cond-expand
|
|
((library (chibi char-set)) (import (chibi char-set)))
|
|
(else
|
|
(import (srfi 14))
|
|
(begin (define (immutable-char-set cs) cs))))
|
|
(export char-set:regional-indicator
|
|
char-set:extend-or-spacing-mark
|
|
char-set:hangul-l
|
|
char-set:hangul-v
|
|
char-set:hangul-t
|
|
char-set:hangul-lv
|
|
char-set:hangul-lvt)
|
|
;; generated with:
|
|
;; tools/extract-unicode-props.scm --derived GraphemeBreakProperty.txt
|
|
;; Control extend-or-spacing-mark=Extend,SpacingMark Regional_Indicator
|
|
;; hangul-l=:L hangul-v=:V hangul-t=:T hangul-lv=:LV hangul-lvt=:LVT
|
|
(include "boundary.scm"))
|