From 364a9285c4da6eddb2abe43e0b35ddbbd0dfdf22 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 8 May 2008 14:55:10 +0000
Subject: [PATCH] supress value printouts when stepping

svn: r9741
---
 collects/stepper/stepper-tool.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/stepper/stepper-tool.ss b/collects/stepper/stepper-tool.ss
index ac043e19ca..2f8ae1cf8a 100644
--- 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)))