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

svn: r7102

Browse Source
This commit is contained in:
Kathy Gray 2007-08-15 01:07:46 +00:00
parent 12a487020b
commit 502f1f2047
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/profj/tool.ss
View File

@ -148,7 +148,10 @@
[(not previous-line) (+ base-offset single-tab-stop)]
[else
(let* ([last-line-start (skip-whitespace previous-line 'forward #f)]
[last-line-indent (sub1 (- last-line-start previous-line))]
[last-line-indent
(sub1 (if (> last-line-start start-pos)
(- start-pos previous-line)
(- last-line-start previous-line)))]
[old-open (get-sexp-start last-line-start)])
(cond
[(not old-open) last-line-indent]