supress value printouts when stepping

svn: r9741
2008-05-08 14:55:10 +00:00 · 2008-05-08 14:55:10 +00:00 · 364a9285c4
commit 364a9285c4
parent 265930ffa6
1 changed files with 2 additions and 1 deletions
--- a/collects/stepper/stepper-tool.ss
+++ b/collects/stepper/stepper-tool.ss
@ -519,7 +519,8 @@
                        (if ((string-length str) . <= . len)
                          str
                          (string-append (substring str 0 (max 0 (- len 3)))
-                                         "...")))))))
+                                         "..."))))))
+                 (current-print void))
               void ; kill
               iter)))