implemented pattern macros

2021-09-29 17:38:53 +02:00
parent 6efb878c43
commit 0229329d7c
14 changed files with 71 additions and 47 deletions
--- a/testsuite/compiler/compute/param_table.gf
+++ b/testsuite/compiler/compute/param_table.gf
@@ -3,4 +3,12 @@ resource param_table = {
 param Q = Q1 | Q2 ;
 param P = P1 | P2 Q ;

+oper ab_patt = #["ab"];
+
+oper test : Str -> Q = \s ->
+  case s of {
+    #ab_patt + _ => Q1 ;
+    _            => Q2
+  } ;
+
 }