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

disable print-vector-length by default

Browse Source 
svn: r7818

original commit: 0d44c0c57a4320cbed5d102a734172ccd233be1a
This commit is contained in:
Matthew Flatt 2007-11-22 19:27:02 +00:00
parent d495ee1bcf
commit 63c65c2ca9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/scheme.ss
View File

@ -354,7 +354,7 @@
(advance c init-line!) (advance c init-line!)
(when (vector? (syntax-e c)) (when (vector? (syntax-e c))
(let ([vec (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)) (if (zero? (vector-length vec))
(set! src-col (+ src-col (- (syntax-span c) 2))) (set! src-col (+ src-col (- (syntax-span c) 2)))
(set! src-col (+ src-col (- (syntax-column (vector-ref vec 0)) (set! src-col (+ src-col (- (syntax-column (vector-ref vec 0))
@ -611,7 +611,7 @@
[(or (list? v) [(or (list? v)
(vector? v)) (vector? v))
(let* ([vec-sz (if (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)]) 0)])
(let ([l (let loop ([col (+ col 1 vec-sz)] (let ([l (let loop ([col (+ col 1 vec-sz)]
[v (if (vector? v) [v (if (vector? v)