haxala1r/olisp
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects 1 Releases Wiki Activity

scope_analysis: changed convert to return the global symbol table as well as the program

Browse Source
This commit is contained in:
Emin Arslan
2026-03-01 16:24:45 +03:00
parent fe26b6c2b3
commit cb7e3f8622
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/compiler/scope_analysis.ml
View File

@@ -132,8 +132,10 @@ let convert program =
| (Core_ast.Expr e) :: rest -> (analyze tbl [] e) :: (aux tbl rest) | (Core_ast.Expr e) :: rest -> (analyze tbl [] e) :: (aux tbl rest)
| (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 [] (Set (s, e))) :: (aux tbl rest)
in traverse (fun x -> x) (aux SymbolTable.empty program) in
let* program = traverse (fun x -> x) (aux SymbolTable.empty program) in
Ok (program, global_tbl)
let of_src src = let of_src src =
let* core = (Core_ast.of_src src) in let* core = (Core_ast.of_src src) in