Repair test for boolean generalization.

This commit is contained in:
Sam Tobin-Hochstadt 2011-08-26 12:35:49 -04:00
parent 598d81671a
commit c7ac40f33b

View File

@ -21,7 +21,7 @@
((i : Integer '(1 2 3))
(j : Char "abc")
#:when (odd? i)
(k : True #(#t #t))
(k : Boolean #(#t #t))
#:when k)
(display (list i j k)))))
"(1 a #t)(1 a #t)(3 c #t)(3 c #t)")