From f68f3295645695baa2153b3ffe90c35307882012 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 3 Oct 2014 21:55:02 -0500 Subject: [PATCH] fix bug in 144fdb2a --- pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt index 8af62f8a63..2ea853d50d 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt @@ -555,7 +555,7 @@ ;; last2 is the start of the S-exp just before the one before "pos" (define last2 - (if contains + (if last (let ([p (get-backward-sexp last)]) (if (and p (p . >= . limit)) p @@ -665,6 +665,7 @@ (do-indent (+ (visual-offset contains) (procedure-indent)))] [(and (for/fold-style?) + last2 (= contains last2)) (do-indent (- last (paragraph-start-position last-para)))] [(or (define-or-lambda-style?)