From e95957483c53f2edb64956469da89f010868d76c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 18 Jan 2011 09:40:54 -0600 Subject: [PATCH] fix a bug in the indenter relating to {} tabbing --- collects/framework/private/scheme.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt index 8d1d5584ee..72f0382f11 100644 --- a/collects/framework/private/scheme.rkt +++ b/collects/framework/private/scheme.rkt @@ -617,7 +617,8 @@ 1)))) (define close-first-curley (get-forward-sexp first-curley)) (define para (position-paragraph pos)) - (when (<= (paragraph-start-position para) close-first-curley (paragraph-end-position para)) + (when (and close-first-curley + (<= (paragraph-start-position para) close-first-curley (paragraph-end-position para))) (set! containing-curleys (max 0 (- containing-curleys 1)))) (do-indent (* containing-curleys 2))] [(not last)