fix bug in 144fdb2a

original commit: f68f3295645695baa2153b3ffe90c35307882012
This commit is contained in:
Robby Findler 2014-10-03 21:55:02 -05:00
parent ba3406cdac
commit f8b4aed399

View File

@ -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?)