handle non-char conditions

pull/14/head
Matthew Butterick 6 years ago
parent a121893a62
commit cd736fdf4e

@ -27,6 +27,6 @@
(define end (send tbox line-end-position prev-line)) (define end (send tbox line-end-position prev-line))
(for*/first ([pos (in-range start end)] (for*/first ([pos (in-range start end)]
[c (in-value (send tbox get-character pos))] [c (in-value (send tbox get-character pos))]
#:when (or (char=? c #\:) (char=? c #\|))) #:when (memv c '(#\: #\|)))
(- pos start))] (- pos start))]
[else #f])) [else #f]))
Loading…
Cancel
Save