arvo: fix scries when jamming desks

This commit is contained in:
ryjm 2022-05-24 11:51:27 -04:00
parent 5b773723b3
commit 495975c140

View File

@ -3,8 +3,8 @@
++ jam-desk ++ jam-desk
|= [our=ship =desk now=@da] |= [our=ship =desk now=@da]
~> %slog.0^leaf/"jamming desk {<desk>}" ~> %slog.0^leaf/"jamming desk {<desk>}"
=+ .^(=rang:clay %cx /(scot %p our)//(scot %da now)) =+ .^(=rang:clay %cx /(scot %p our)//(scot %da now)/rang)
=+ .^(=tako:clay %cs /(scot %p our)/[desk]/(scot %da now)) =+ .^(=tako:clay %cs /(scot %p our)/[desk]/(scot %da now)/tako/~)
%- jam %- jam
%- ?:(=(%base desk) remove-misc-dirs same) %- ?:(=(%base desk) remove-misc-dirs same)
%- ~(run by q:(~(got by hut.rang) tako)) %- ~(run by q:(~(got by hut.rang) tako))