finished the partial evaluator

2026-05-02 15:52:50 -06:00 · 2021-10-07 11:47:51 +02:00
parent fd6cd382c5
commit e33d881ce8
7 changed files with 79 additions and 3 deletions
--- a/testsuite/compiler/compute/string_matching.gfs
+++ b/testsuite/compiler/compute/string_matching.gfs
@@ -27,3 +27,4 @@ cc <case "xyababbbab" of {x + #ab_patt* => x; _ => "?"} : Str>
 cc test "abcd"
 cc test "xyz"
 cc <\x -> case x of {"q1" => Q1; _ => Q2} : Str -> Q>
+cc pre {"в"|"ф"=>"във"; _=>"в"}