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 sum
(loop rest 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 (cond-expand
(chibi (chibi
(test "record positional" (test "record positional"