Repair test for boolean generalization.

original commit: c7ac40f33b0c1d25c39c5cdd487cd34f43829267
This commit is contained in:
Sam Tobin-Hochstadt 2011-08-26 12:35:49 -04:00
parent 417c8a9833
commit 03edafbc18

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)")