st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-06-11 03:38:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

struct: fixes, first (empty) synthesizer test

Browse source
This commit is contained in:
ProgramSnail 2026-05-06 16:57:14 +00:00
parent 781fdbafd2
commit a130ffe819
3 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
model_with_structures/synthesizer.ml
View file

@ -167,7 +167,7 @@ struct
[%%ocanren_inject
type nonrec ('sl, 'd, 'vl) t = ZeroV | SmthV | BotV | FunV of 'sl | RefV of 'd | TupleV of 'vl
[@@deriving gt ~options:{ show; gmap }]
type ground = ((Nat.ground List.ground * Stmt.ground) List.ground, Nat.ground, ground List.ground) t
type ground = (((* Nat.ground List.ground * *) Stmt.ground) List.ground, Nat.ground, ground List.ground) t
]
end
@ -814,8 +814,8 @@ struct
s == CallS (f, es) &
pathvalo mem vals f v &
pathtypeo types f tp &
types' == TypesEnv [] &
vals' == ValsEnv [] &
types' == TypesEnv [] & (* TODO: FIXME add globals *)
vals' == ValsEnv [] & (* TODO: FIXME add globals *)
v == FunV fstmts &
tp == FunT tps &
st' == StEnv (mem, types', vals') &
@ -867,9 +867,12 @@ struct
let prog_evalo prog st' =
let open Prg in
let open Stmt in
ocanren {
fresh decls, s, init_st in
fresh decls, s, init_st in
prog == Prg (decls, s) &
decls == [] &
s == SkipS &
prog_inito prog init_st &
stmt_evalo init_st s st'
}