clay: on update, remove all previous pending updates

Fixes #6537, see discussion there for alternatives.
This commit is contained in:
Philip Monk 2023-05-03 12:59:44 -07:00
parent 4d3af06300
commit 9d7b196024

View File

@ -1818,7 +1818,11 @@
=? ..park !?=(%base syd) wick :: [wick] =? ..park !?=(%base syd) wick :: [wick]
%- (slog leaf+"clay: wait-for-kelvin, {<[need=zuse/zuse have=kel]>}" ~) %- (slog leaf+"clay: wait-for-kelvin, {<[need=zuse/zuse have=kel]>}" ~)
tare :: [tare] > tare :: [tare] >
=. wic.dom (~(del by wic.dom) zuse+zuse) =. wic.dom
%- ~(gas by *(map weft ^yoki))
%+ skip ~(tap by wic.dom)
|= [w=weft ^yoki]
(gte num.w zuse)
:: ::
=/ old-yaki =/ old-yaki
?: =(0 let.dom) ?: =(0 let.dom)