mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 20:31:40 +03:00
gall: enforce monotonic growth of cases
This commit is contained in:
parent
f0043aa4ec
commit
e4ceed09ad
@ -972,6 +972,9 @@
|
||||
.
|
||||
=/ val (get:on-path fan.u.old yon)
|
||||
?~ val :: insert binding at new case
|
||||
=> ?~ lat=(ram:on-path fan.u.old) .
|
||||
?> (gte yon key.u.lat)
|
||||
.
|
||||
%+ ~(put by sky.yoke) spur
|
||||
u.old(fan (put:on-path fan.u.old yon [%& noun]))
|
||||
?- -.u.val
|
||||
|
Loading…
Reference in New Issue
Block a user