only prints snips, syntax, etc specially whe the port writes specials

svn: r503
2005-07-30 17:04:51 +00:00 · 2005-07-30 17:04:51 +00:00 · 119c98debf
commit 119c98debf
parent d844256e25
1 changed files with 1 additions and 0 deletions
--- a/collects/drscheme/private/language.ss
+++ b/collects/drscheme/private/language.ss
@ -344,6 +344,7 @@
                         [pretty-print-size-hook
                          (λ (value display? port)
                            (cond
+			      [(not (port-writes-special? port)) #f]
                              [(is-a? value snip%) 1]
                              [(use-number-snip? value) 1]
                              [(syntax? value) 1]