handle non-char conditions

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

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