Get forward analysis working again

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-13 14:08:40 -07:00
parent 4fe0d147fa
commit 44f04e4020
3 changed files with 42 additions and 19 deletions
--- a/Language.agda
+++ b/Language.agda
@@ -499,10 +499,10 @@ record Program : Set where
    open Graphs

    field
-        prog : Stmt
+        rootStmt : Stmt

    private
-        buildResult = Construction.buildCfg prog empty
+        buildResult = Construction.buildCfg rootStmt empty

    graph : Graph
    graph = proj₁ buildResult
@@ -518,7 +518,7 @@ record Program : Set where

    private
        vars-Set : StringSet
-        vars-Set = Stmt-vars prog
+        vars-Set = Stmt-vars rootStmt

    vars : List String
    vars = to-Listˢ vars-Set