zuse: ordered-map minor cleanup

This commit is contained in:
Ted Blackman 2021-02-26 22:39:41 -05:00
parent ccc704b22e
commit 4c190eb2e9

View File

@ -5258,8 +5258,8 @@
?> ?=(^ a) ?> ?=(^ a)
=^ res acc (f state.acc n.a) =^ res acc (f state.acc n.a)
?~ res ?~ res
[del=& ..node] [del=& this]
[del=| ..node(val.n.a u.res)] [del=| this(val.n.a u.res)]
:: +left: recurse on left subtree, copying mutant back into .l.a :: +left: recurse on left subtree, copying mutant back into .l.a
:: ::
++ left ++ left