summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--par/piece-table.scm2
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))))))