Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

chicken workarounds

Browse source
This commit is contained in:
Alex Shinn 2017-01-30 23:08:04 +09:00
parent 1a86331335
commit 57f1b44d14
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/regexp.sld
View file

@ -12,9 +12,6 @@
regexp-match-submatch-start regexp-match-submatch-end
regexp-match->list regexp-match->sexp)
(import (srfi 69))
(cond-expand
((library (srfi 33)) (import (srfi 33)))
(else (import (srfi 60))))
;; Chibi's char-set library is more factored than SRFI-14.
(cond-expand
(chibi
@ -35,7 +32,7 @@
(ucs-range->char-set #x1FA8 #x1FB0)
(char-set #\x01C5 #\x01C8 #\x01CB #\x01F2 #\x1FBC #\x1FCC #\x1FFC)))))
(else
(import (scheme base) (scheme char) (srfi 14))
(import (scheme base) (scheme char) (srfi 1) (srfi 14))
(begin
(define %char-set:letter
(char-set-intersection char-set:ascii char-set:letter))
@ -59,6 +56,9 @@
(char-set-intersection char-set:ascii char-set:printing))
(define %char-set:iso-control
(char-set-intersection char-set:ascii char-set:iso-control)))))
(cond-expand
((library (srfi 33)) (import (srfi 33)))
(else (import (srfi 60))))
(import (chibi char-set boundary))
;; Use string-cursors where available.
(cond-expand

1
lib/srfi/115.sld
View file

@ -6,4 +6,5 @@
regexp-match? regexp-match-count
regexp-match-submatch
regexp-match-submatch-start regexp-match-submatch-end)
(cond-expand (chicken (import (scheme base))) (else))
(import (chibi regexp)))