Added forgotten scope extension in the normalizer (and removed one de…

…funct file).
actonlang · Sep 18, 2024 · c37e439 · c37e439
1 parent 9a3df8f
commit c37e439
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 58 deletions.
diff --git a/compiler/Acton/Normalizer.hs b/compiler/Acton/Normalizer.hs
@@ -183,7 +183,7 @@ instance Norm Stmt where
 
     norm' env (Try l b [] els [])   = norm env (b ++ els)
     norm' env (Try l b hs els [])   = do b <- norm (pushMark DROP env) b
-                                         els <- norm env els
+                                         els <- norm (define (envOf b) env) els
                                          x <- newName "x"
                                          hdl <- handle env x hs
                                          return [sIf [Branch ePUSH (b ++ sDROP : els)] (sPOP x : hdl)]

diff --git a/compiler/tests/xml.act b/compiler/tests/xml.act