misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bug in clear-mark.

This commit is contained in:
Tony Garnock-Jones 2014-12-27 17:14:55 -05:00
parent 492f7a3105
commit 8af07c0abd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rmacs/rope.rkt
View File

@ -307,7 +307,7 @@
[mark-index [mark-index
(let* ((old-marks (rope-mark-index r)) (let* ((old-marks (rope-mark-index r))
(old-mark (hash-ref old-marks mtype (lambda () (hash))))) (old-mark (hash-ref old-marks mtype (lambda () (hash)))))
(define new-mark (hash-remove old-mark position)) (define new-mark (hash-remove old-mark (- position (rope-lo r))))
(if (hash-empty? new-mark) (if (hash-empty? new-mark)
(hash-remove old-marks mtype) (hash-remove old-marks mtype)
(hash-set old-marks mtype new-mark)))])))) (hash-set old-marks mtype new-mark)))]))))