test fix
svn: r13456
This commit is contained in:
parent
4c161c12b7
commit
2b54135394
|
@ -612,10 +612,10 @@
|
|||
(add1 x)
|
||||
12))]
|
||||
|
||||
[tc-e (filter integer? (list 1 2 3 'foo))
|
||||
[tc-e (filter exact-integer? (list 1 2 3 'foo))
|
||||
(-lst -Integer)]
|
||||
|
||||
[tc-e (filter even? (filter integer? (list 1 2 3 'foo)))
|
||||
[tc-e (filter even? (filter exact-integer? (list 1 2 3 'foo)))
|
||||
(-lst -Integer)]
|
||||
|
||||
[tc-err (plambda: (a ...) [as : a ... a]
|
||||
|
|
Loading…
Reference in New Issue
Block a user