From 3ce56114f86c43050de6a67525512a8864d0017f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 3 Jun 2008 16:49:50 +0000 Subject: [PATCH] changed the convert teachpack so that it does not print anything out when it runs svn: r10109 --- collects/htdp/convert.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/htdp/convert.ss b/collects/htdp/convert.ss index 187e6a2835..98e0d92231 100644 --- a/collects/htdp/convert.ss +++ b/collects/htdp/convert.ss @@ -145,10 +145,11 @@ ;; create labels; aligned with sliders (define mpanel (make-object vertical-panel% main-panel)) -(begin +(let () (make-object message% "Fahrenheit" mpanel) (make-object message% "" mpanel) - (make-object message% "Celsius" mpanel)) + (make-object message% "Celsius" mpanel) + (void)) (send mpanel stretchable-width #f) (define panel (make-object vertical-panel% main-panel))