From 63c65c2ca951e2281bb3a2597086c45fd283b14d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 22 Nov 2007 19:27:02 +0000 Subject: [PATCH] disable print-vector-length by default svn: r7818 original commit: 0d44c0c57a4320cbed5d102a734172ccd233be1a --- collects/scribble/scheme.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss index cfebd122..1b77a0d2 100644 --- 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)