gall: check high-water mark

This commit is contained in:
Ted Blackman 2023-03-11 17:05:53 -06:00 committed by ~wicrum-wicrun
parent 541f4725ae
commit 3e6f4ed44a

View File

@ -275,6 +275,11 @@
%+ ~(put by sky.state) pit
`(~(put by fan:*path-state) yon [%& noun])
mo-core
=> ?~ bob.u.old
.
~| gall-grow-bob+[path actual=yon max=u.bob.u.old]
?> (gth yon u.bob.u.old)
.
=/ val (~(get by fan.u.old) yon)
?~ val :: insert binding at new case
=. sky.state