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

.

Browse Source 
original commit: 3a6392690c6ad5ae77aca651d70fdb60b0b50f40
This commit is contained in:
Matthew Flatt 2003-04-12 14:08:43 +00:00
parent 568c5490a2
commit 2cef4f59cd
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/pretty.ss
View File

@ -235,6 +235,9 @@
(define-struct mark (str def))
(define pre-sym (gensym 'pre))
(define post-sym (gensym 'post))
(define (generic-write obj display? width output output-hooked
print-graph? print-struct? print-hash-table? print-vec-length?
depth size-hook print-line
@ -610,9 +613,9 @@
new-def-box
0
(lambda (obj)
(snoc (cons 'pre obj) 0))
(snoc (cons pre-sym obj) 0))
(lambda (obj)
(snoc (cons 'post obj) 0)))
(snoc (cons post-sym obj) 0)))
(if (> left 0) ; all can be printed on one line
(let loop ([result result][col col])
(if (null? result)
@ -621,10 +624,10 @@
(+ (let ([v (car result)])
(if (pair? v)
(cond
[(eq? (car v) 'pre)
[(eq? (car v) pre-sym)
(pre-print (cdr v))
col]
[(eq? (car v) 'post)
[(eq? (car v) post-sym)
(post-print (cdr v))
col]
[else