diff options
| -rw-r--r-- | par/piece-table.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/par/piece-table.scm b/par/piece-table.scm index 2892578..0191a1c 100644 --- a/par/piece-table.scm +++ b/par/piece-table.scm @@ -17,6 +17,11 @@ ;; /REMOVE ME +;; Utils +(define (character-newline? ch) + (char=? ch #\newline)) + + ;; Pieces themselves: the buffer is a reference to the buffer they take their ;; data from. @@ -35,8 +40,6 @@ (linebreaks piece-linebreaks set-piece-linebreaks!)) (define (index-linebreaks buffer start length) - (define (character-newline? ch) - (char=? ch #\newline)) (define str (buffer->string buffer)) (define (string-foreach* str f from length) (let loop ((i 0)) |