From cd736fdf4eb30528ed6c7ddc249c7c0d4f6849e1 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 9 Jul 2018 09:38:48 -0600 Subject: [PATCH] handle non-char conditions --- brag/private/indenter.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/brag/private/indenter.rkt b/brag/private/indenter.rkt index bec7b8c..abb37d6 100644 --- a/brag/private/indenter.rkt +++ b/brag/private/indenter.rkt @@ -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])) \ No newline at end of file