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

assymetric args test, args fold fix

Browse source
This commit is contained in:
ProgramSnail 2026-02-23 13:51:50 +00:00
parent 6fa679f623
commit f5acc7137d
3 changed files with 57 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

2
simplest_model/synthesizer.ml
View file

@ -380,7 +380,7 @@ struct
decl == FunDecl (arg_tags, body) &
state == St (env_before, mem_before, len_before, assignments_before) &
state_clean == St (nil_env, mem_before, len_before, nil_assignments) &
list_foldl2o (add_arg_foldero state) (Std.pair state Nat.o) arg_tags args (Std.pair state_with_vars _counter) & (* TODO: or foldr2o ?? *)
list_foldr2o (add_arg_foldero state) (Std.pair state Nat.o) arg_tags args (Std.pair state_with_vars _counter) & (* TODO: or foldr2o ?? *)
eval_bodyo state_with_vars prog body state_evaled &
st_spoil_assignmentso state_evaled state_spoiled &
state_spoiled == St (_env, mem_spoiled, len, _assignments) &