adding ignored failing match-letrec test case

This commit is contained in:
Alex Shinn 2019-12-17 23:47:19 +08:00
parent 33d6cfd0ac
commit e10d82987a

View file

@ -194,6 +194,11 @@
sum
(loop rest sum)))))
'(test "match-letrec" '(2 1 1 2)
(match-letrec (((x y) (list 1 (lambda () (list a x))))
((a b) (list 2 (lambda () (list x a)))))
(append (y) (b))))
(cond-expand
(chibi
(test "record positional"