Commit eb382b10 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

Expr: fix the last commit

parent 7bd13b2f
......@@ -50,8 +50,9 @@ let mk_ps, restore_ps =
ps_ghost = gh;
ps_logic = lg;
} in
Wls.set ls_to_ps ls ps;
ps),
match lg with
| PLls ls -> Wls.set ls_to_ps ls ps; ps
| _ -> ps),
(fun ls -> Wls.find ls_to_ps ls)
type ps_kind =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment