struct: correct glob context handling in synthesizer (fix ported from ananlyzer)

This commit is contained in:
ProgramSnail 2026-05-06 17:17:36 +00:00
parent a130ffe819
commit ee8ff429cf
3 changed files with 83 additions and 40 deletions

View file

@ -2,7 +2,8 @@ open Tests_f
open Synthesizer
open Relational
let%expect_test "prog eval test 1" = print_endline (prog_eval_t1 ()); [%expect {| [StEnv (MemEnv ([], O), TypesEnv ([]), ValsEnv ([]))] |}]
let%expect_test "prog eval test 1" = print_endline (prog_eval_t1 ());
[%expect {| [StEnv (MemEnv ([], O), TypesEnv ([], []), ValsEnv ([], []))] |}]
(* type tests *)
(* let%expect_test "Tag type test" = print_endline (Tag.Test.test ()); [%expect {| [Tag (Rd, NeverWr, Ref, In, NOut)] |}] *)