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

refactor mini-cc

Browse source
This commit is contained in:
Simon Cruanes 2020-12-22 14:59:30 -05:00
parent 35e5e30e93
commit 7ef673ca30
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/mini-cc/Sidekick_mini_cc.ml
View file

@ -147,13 +147,14 @@ module Make(A: ARG) = struct
self self
let clear (self:t) : unit = let clear (self:t) : unit =
let {ok=_; tbl; sig_tbl; pending=_; combine=_; true_; false_} = self in
self.ok <- true; self.ok <- true;
T_tbl.clear self.tbl;
Sig_tbl.clear self.sig_tbl;
self.pending <- []; self.pending <- [];
self.combine <- []; self.combine <- [];
T_tbl.add self.tbl self.true_.n_t self.true_; T_tbl.clear tbl;
T_tbl.add self.tbl self.false_.n_t self.false_; Sig_tbl.clear sig_tbl;
T_tbl.add tbl true_.n_t true_;
T_tbl.add tbl false_.n_t false_;
() ()
let sub_ t k : unit = let sub_ t k : unit =
@ -317,5 +318,4 @@ module Make(A: ARG) = struct
|> Iter.filter Node.is_root |> Iter.filter Node.is_root
|> Iter.map |> Iter.map
(fun n -> Node.iter_cls n |> Iter.map Node.term) (fun n -> Node.iter_cls n |> Iter.map Node.term)
end end