From 52a3006c4398e93ba321326ef708ea39b4bfe2ba Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 9 May 2006 19:07:18 +0000 Subject: [PATCH] turned off testing svn: r2892 --- collects/profjWizard/view.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/profjWizard/view.scm b/collects/profjWizard/view.scm index 33669bdb24..0a6f2be9ae 100644 --- a/collects/profjWizard/view.scm +++ b/collects/profjWizard/view.scm @@ -615,7 +615,7 @@ (define (an-error? x) (eq? an-error x)) ;; ------------------------------------------------------------------------ - #| Run, program, run: |# + #| Run, program, run: (require (file "draw-txt.ss")) @@ -628,5 +628,5 @@ (define-values (c y) (get-union-info #;BEGINNER INTERMEDIATE)) (if (and y c) (printf "/*~n~a~n*/~n" (dt-draw (car y)))) (if y (printf "~a~n" (apply make-union (append y (list INTERMEDIATE))))) - + |# )