blob: 99894eed681e15baa65ca222a7bd84567b2b02a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(define-library (par %piece-table-all)
(import (scheme base)
(par buffers)
(srfi 11))
(export make-piece
piece-next
piece-prev
split-piece!
merge-pieces!
connect-pieces!
can-merge-pieces?
piece-empty?
make-piece-table
piece-table-sentinel
piece-table-index
piece-table-length
piece-table-insert!
piece-table-delete!
piece-table-change-looks!
piece-table->string
string->piece-table)
(include "piece-table.scm"))
|