mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
13 lines
433 B
Scheme
13 lines
433 B
Scheme
|
|
(define-library (chibi text utf8)
|
|
(export string->utf8! utf8->string! utf8-ref utf8-next utf8-prev)
|
|
(cond-expand
|
|
((and chibi (not portable))
|
|
(import (only (chibi io)
|
|
string->utf8! utf8->string! utf8-ref utf8-next utf8-prev)))
|
|
(else
|
|
(import (scheme base) (scheme bitwise))
|
|
(include "utf8.scm")
|
|
(begin
|
|
(define utf8->string! utf8->string)
|
|
(define string->utf8! string->utf8)))))
|