From c36849cb6247f957b4e6b093e16d04421c8cea3d Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 25 May 2025 23:35:31 +0200
Subject: ERecompute

---
 src/Compile.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Compile.hs')

diff --git a/src/Compile.hs b/src/Compile.hs
index 9ed5a27..722b432 100644
--- a/src/Compile.hs
+++ b/src/Compile.hs
@@ -977,6 +977,8 @@ compile' env = \case
         maybe (return ()) ($ name2) mfun2
         return (CELit name)
 
+  ERecompute _ e -> compile' env e
+
   EWith _ t e1 e2 -> do
     actyname <- emitStruct (STAccum t)
     name1 <- compileAssign "" env e1
-- 
cgit v1.2.3-70-g09d2