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

.

Browse Source 
original commit: 5b862c32b245c151fe69d1b10dae614dd58aacc9
This commit is contained in:
Matthew Flatt 2005-04-30 15:55:21 +00:00
parent 531f899a00
commit 2c1bd17837
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mzlib/pretty.ss
View File

@ -237,7 +237,7 @@
(lambda (special block break?)
(write-special special /dev/null)
(check-esc)
(set! content (cons (box special) content))
(set! content (cons (cons 'special special) content))
#t))
#f #f
(lambda ()
@ -774,11 +774,12 @@
(define (pp-expr expr extra depth)
(if (read-macro? expr)
(pr (read-macro-body expr)
(out (read-macro-prefix expr))
extra
pp-expr
depth)
(begin
(out (read-macro-prefix expr))
(pr (read-macro-body expr)
extra
pp-expr
depth))
(let ((head (car expr)))
(if (and (symbol? head)
(not (size-hook head display?)))