From 0d54645ab941e1dc076ab6e03caabdd8a50eef89 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 30 May 2008 18:35:58 +0000
Subject: [PATCH] removed mentions of current print from the tools

svn: r10052
---
 collects/swindle/tool.ss | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/collects/swindle/tool.ss b/collects/swindle/tool.ss
index d77c7c6305..0f4a2bf539 100644
--- a/collects/swindle/tool.ss
+++ b/collects/swindle/tool.ss
@@ -83,10 +83,7 @@
                           ,(string-constant debugging)
                           ,(string-constant debugging-and-profiling)))
                        (parent p)
-                       (callback void))))]
-                 [output
-                  (make-panel (string-constant output-style-label)
-                              "always current-print")])
+                       (callback void))))])
             (case-lambda
               [()
                (drscheme:language:make-simple-settings
@@ -106,10 +103,6 @@
                        [(none) 0]
                        [(debug) 1]
                        [(debug/profile) 2]))])))
-        (define/override (render-value/format value settings port port-write)
-          (parameterize ([current-output-port port]
-                         [current-inspector (make-inspector)])
-            ((current-print) value)))
         (super-instantiate ())))
     (define (add-swindle-language name module entry-name num one-line url)
       (drscheme:language-configuration:add-language