diff options
Diffstat (limited to 'src/Compile.hs')
| -rw-r--r-- | src/Compile.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |