suzanne.soy/gui
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 
original commit: e95957483c53f2edb64956469da89f010868d76c
This commit is contained in:
Robby Findler 2011-01-18 09:40:54 -06:00
parent 25e0080ae3
commit f6ab871af9
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))))
(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)