This commit is contained in:
NikolajDanger
2022-06-09 13:05:59 +02:00
parent 7c20bc1c2c
commit 856865ea08

View File

@ -60,7 +60,6 @@ let rec removeDeadBindingsInExp (e : TypedExp) : (bool * DBRtab * TypedExp) =
(anytrue ios,
List.fold SymTab.combine (SymTab.empty()) uses,
ArrayLit (es', t, pos) )
(* ToDO: Task 3: implement the cases of `Var`, `Index` and `Let` expressions below *)
| Var (name, pos) ->
let symtab = SymTab.empty()
let symtab = recordUse name symtab