suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

turned off testing

Browse Source 
svn: r2892
This commit is contained in:
Matthias Felleisen 2006-05-09 19:07:18 +00:00
parent e3bd7b2887
commit 52a3006c43
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profjWizard/view.scm
View File

@ -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)))))
|#
)