From d088ae8cb747ad3a12b243f7ea731cd87fdffaed Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Tue, 13 Feb 2024 22:14:48 +0100 Subject: par: piece-table: make piece-table-line work with wrong lines --- par/piece-table.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/par/piece-table.scm b/par/piece-table.scm index f5f58da..c1688a2 100644 --- a/par/piece-table.scm +++ b/par/piece-table.scm @@ -398,8 +398,9 @@ ;; Interact with lines: interesting for the UI (define (piece-table-line piece-table line-number) (let ((start (if (= line-number 0) 0 - (+ 1 (piece-table-find-line-break piece-table - (- line-number 1))))) + (let ((line (piece-table-find-line-break piece-table + (- line-number 1)))) + (if (eof-object? line) line (+ 1 line))))) (end (piece-table-find-line-break piece-table line-number))) (cond ((eof-object? start) start) -- cgit v1.2.3