mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
17 lines
419 B
Scheme
17 lines
419 B
Scheme
|
|
(define-library (chibi text search)
|
|
(import (scheme base)
|
|
(chibi regexp)
|
|
(chibi text base)
|
|
(chibi text types)
|
|
(chibi text utf8)
|
|
(srfi 130))
|
|
(cond-expand
|
|
(chibi
|
|
(import (only (chibi) string-cursor-offset)))
|
|
(else
|
|
;; assume cursors are indexes
|
|
(begin
|
|
(define (string-cursor-offset sc) sc))))
|
|
(export text-search!)
|
|
(include "search.scm"))
|