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