simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(monoid): call find on sub-nodes

Browse source
This commit is contained in:
Simon Cruanes 2021-03-22 14:09:31 -04:00
parent 6d7edbb601
commit ff77617a5d
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/Sidekick_core.ml
View file

@ -785,6 +785,7 @@ end = struct
else None else None
let on_new_term self cc n (t:T.t) : unit = let on_new_term self cc n (t:T.t) : unit =
Log.debugf 50 (fun k->k "@[monoid[%s].on-new-term.try@ %a@])" M.name N.pp n);
let maybe_m, l = M.of_term cc n t in let maybe_m, l = M.of_term cc n t in
begin match maybe_m with begin match maybe_m with
| Some v -> | Some v ->
@ -800,6 +801,7 @@ end = struct
Log.debugf 20 Log.debugf 20
(fun k->k "(@[monoid[%s].on-new-term.sub@ :n %a@ :sub-t %a@ :value %a@])" (fun k->k "(@[monoid[%s].on-new-term.sub@ :n %a@ :sub-t %a@ :value %a@])"
M.name N.pp n N.pp n_u M.pp m_u); M.name N.pp n N.pp n_u M.pp m_u);
let n_u = CC.find cc n_u in
if N.get_field self.field_has_value n_u then ( if N.get_field self.field_has_value n_u then (
let m_u' = let m_u' =
try N_tbl.find self.values n_u try N_tbl.find self.values n_u