pairs :3

2023-11-23 00:56:47 -07:00
parent ac6c0b7457
commit d84fe56fbb
5 changed files with 33 additions and 24 deletions
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -12,13 +12,13 @@ letrecExample :: Program
 letrecExample = [coreProg|
    pair x y f = f x y

-    fst p = p k
-    snd p = p k1
+    fst' p = p k
+    snd' p = p k1

    f x y =
        letrec a = pair x b
               b = pair y a
-        in fst (snd (snd (snd a)));
+        in fst' (snd' (snd' (snd' a)));

    main = f 3 4;
 |]