diff options
| -rw-r--r-- | par/piece-table.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/par/piece-table.scm b/par/piece-table.scm index 948286a..a9b61f1 100644 --- a/par/piece-table.scm +++ b/par/piece-table.scm @@ -189,7 +189,7 @@ (rem pos)) (let* ((current (car ps)) (len (piece-length current))) - (if (<= rem len) ; TODO not cool when removing! + (if (<= rem len) (values idx rem) (loop (+ idx 1) (cdr ps) (- rem len)))))) |