From 58acdc6d3a5723bf255c233393640d7f277749d8 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Thu, 18 Jan 2024 22:22:18 +0100
Subject: par: piece-table: move utils to the top

---
 par/piece-table.scm | 7 +++++--
 1 file 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))
-- 
cgit v1.2.3