bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 63c65c2ca951e2281bb3a2597086c45fd283b14d
parent d495ee1bcf982edb25ec18f546d42c9ec4b7cd8a
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 22 Nov 2007 19:27:02 +0000

disable print-vector-length by default

svn: r7818

original commit: 0d44c0c57a4320cbed5d102a734172ccd233be1a

Diffstat:
M
collects/scribble/scheme.ss
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
@@ -354,7 +354,7 @@
               (advance c init-line!)
               (when (vector? (syntax-e c))
                 (let ([vec (syntax-e c)])
-                  (out (format "#~a" (vector-length vec)) p-color)
+                  (out "#" #;(format "#~a" (vector-length vec)) p-color)
                   (if (zero? (vector-length vec))
                       (set! src-col (+ src-col (- (syntax-span c) 2)))
                       (set! src-col (+ src-col (- (syntax-column (vector-ref vec 0))
@@ -611,7 +611,7 @@
      [(or (list? v)
           (vector? v))
       (let* ([vec-sz (if (vector? v)
-                         (+ 1 (string-length (format "~a" (vector-length v))))
+                         (+ 1 #;(string-length (format "~a" (vector-length v))))
                          0)])
         (let ([l (let loop ([col (+ col 1 vec-sz)]
                             [v (if (vector? v)