st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-03-12 02:57:09 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

functions rewrite with ocanren syntax extension

Browse source
This commit is contained in:
ProgramSnail 2026-01-27 19:39:56 +03:00
parent f15613d192
commit 118834c9b7
3 changed files with 399 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/relational_semantic_interpreter.ml
View file

@ -354,9 +354,12 @@ struct
run q (fun q -> eval_prog (inj all_prog) q)
(fun qs -> qs#reify prj_exn)
(* TODO: fix *)
(* let empty_prog = (Prog.T (List.Nil, FunDecl.T (List.Nil, Body.T List.Nil))) *)
(* TODO: fix *)
(* let%expect_test "empty" = *)
(* eval_prog_fwd (Prog.T ([], FunDecl.T ([], []))); *)
(* eval_prog_fwd empty_prog; *)
(* Printf.printf "done!"; *)
(* [%expect {| done! |}] *)