kiln: update %base in +bump

This commit is contained in:
Ted Blackman 2021-08-20 12:45:33 +03:00
parent f9e1812a14
commit d02652d799

View File

@ -405,8 +405,7 @@
|= except=(set desk)
^+ kiln
=/ kel=weft [%zuse zuse]
=. except (~(put in except) %base)
=/ ded (~(dif in (get-blockers kel)) except)
=/ ded (~(dif in (get-blockers kel)) (~(put in except) %base))
?. =(~ ded)
=/ mes "kiln: desks blocked upgrade to {<[- +]:kel>}: {<ded>}"
(^emit (pyre:pass leaf/mes ~))