par: piece-table: move utils to the top

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))