suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug in 144fdb2a

Browse Source
This commit is contained in:
Robby Findler 2014-10-03 21:55:02 -05:00
parent 868140d91c
commit f68f329564
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt
View File

@ -555,7 +555,7 @@
;; last2 is the start of the S-exp just before the one before "pos" ;; last2 is the start of the S-exp just before the one before "pos"
(define last2 (define last2
(if contains (if last
(let ([p (get-backward-sexp last)]) (let ([p (get-backward-sexp last)])
(if (and p (p . >= . limit)) (if (and p (p . >= . limit))
p p
@ -665,6 +665,7 @@
(do-indent (+ (visual-offset contains) (do-indent (+ (visual-offset contains)
(procedure-indent)))] (procedure-indent)))]
[(and (for/fold-style?) [(and (for/fold-style?)
last2
(= contains last2)) (= contains last2))
(do-indent (- last (paragraph-start-position last-para)))] (do-indent (- last (paragraph-start-position last-para)))]
[(or (define-or-lambda-style?) [(or (define-or-lambda-style?)