From 5fb2f56fdffc5646b7858af9fea7eb528a73234a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Oct 2011 05:56:08 -0600 Subject: [PATCH] fix tab problem in text% Merge to 5.2 --- collects/racket/snip/private/snip.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/racket/snip/private/snip.rkt b/collects/racket/snip/private/snip.rkt index 839111f080..908784dc45 100644 --- a/collects/racket/snip/private/snip.rkt +++ b/collects/racket/snip/private/snip.rkt @@ -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))))))))))