haskell: Phase 14 — record update r { field = v } (parser + desugar + eval)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
2026-05-07 16:43:20 +00:00
parent 9307437679
commit 76d141737a
4 changed files with 94 additions and 2 deletions
--- a/lib/haskell/desugar.sx
+++ b/lib/haskell/desugar.sx
@@ -142,6 +142,13 @@
              (list
                :app (hk-desugar (nth node 1))
                (hk-desugar (nth node 2))))
+            ((= tag "rec-update")
+              (list
+                :rec-update
+                (hk-desugar (nth node 1))
+                (map
+                  (fn (p) (list (first p) (hk-desugar (nth p 1))))
+                  (nth node 2))))
            ((= tag "rec-create")
              (let
                ((cname (nth node 1))