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

fix a bug in the indenter relating to {} tabbing

Browse Source
This commit is contained in:
Robby Findler 2011-01-18 09:40:54 -06:00
parent a20809c347
commit e95957483c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/scheme.rkt
View File

@ -617,7 +617,8 @@
1)))) 1))))
(define close-first-curley (get-forward-sexp first-curley)) (define close-first-curley (get-forward-sexp first-curley))
(define para (position-paragraph pos)) (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)))) (set! containing-curleys (max 0 (- containing-curleys 1))))
(do-indent (* containing-curleys 2))] (do-indent (* containing-curleys 2))]
[(not last) [(not last)