projects
/
scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a457cd3
)
Add more complicated pattern matching test case
author
Luke Lau
<luke_lau@icloud.com>
Thu, 15 Aug 2019 16:24:09 +0000
(17:24 +0100)
committer
Luke Lau
<luke_lau@icloud.com>
Thu, 15 Aug 2019 16:24:09 +0000
(17:24 +0100)
tests.scm
patch
|
blob
|
history
diff --git
a/tests.scm
b/tests.scm
index a3f4913a75d5e9177843da3d5a71ce2d24b0a8b4..f327231339d86e9b0c602f188605b072d57c0cfa 100644
(file)
--- a/
tests.scm
+++ b/
tests.scm
@@
-307,3
+307,9
@@
[(bar x) 0]))
12)
[(bar x) 0]))
12)
+(test-prog '((data Foo [foo Int])
+ (data Bar [bar Foo])
+ (case (bar (foo 42))
+ [(bar (foo x)) x]))
+ 42)
+