scope_analysis: small logic fix
This commit is contained in:
@@ -133,4 +133,4 @@ let convert program =
|
|||||||
| (Define (s, e)) :: rest ->
|
| (Define (s, e)) :: rest ->
|
||||||
let tbl = SymbolTable.add s (id ()) tbl in
|
let tbl = SymbolTable.add s (id ()) tbl in
|
||||||
(analyze tbl [] e) :: (aux tbl rest)
|
(analyze tbl [] e) :: (aux tbl rest)
|
||||||
in aux SymbolTable.empty program
|
in traverse (fun x -> x) (aux SymbolTable.empty program)
|
||||||
|
|||||||
Reference in New Issue
Block a user