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

fix tab problem in text%

Browse Source 
Merge to 5.2
This commit is contained in:
Matthew Flatt 2011-10-13 05:56:08 -06:00
parent 770c2d14f8
commit 5fb2f56fdf
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/racket/snip/private/snip.rkt
View File

@ -697,12 +697,12 @@
(send admin get-editor))])
(let-values ([(n tabs tabspace mult)
(let-boxes ([n 0]
[space 0]
[units? #f]
[tabs null])
[space 0]
[units? #f]
[tabs null])
(set-box! tabs (send admin get-tabs n space units?))
(values n
tabs ;; this should be a vector, right?
tabs ;; a list
space
(if units?
1
@ -714,12 +714,12 @@
(if (= i n)
(let ([base (if (zero? n)
0
(vector-ref tabs (- n 1)))])
(list-ref tabs (- n 1)))])
(let ([tabspace (* tabspace mult)])
(+ base (- (->long tabspace)
(modulo (->long (- ex base))
(->long tabspace))))))
(let ([v (vector-ref tabs i)])
(let ([v (list-ref tabs i)])
(if ((* mult v) . > . ex)
(- (* mult v) ex)
(loop (add1 i))))))))))