clay: desk name sanity check

Ensures no desk with an illegal name can be created by sanity checking
in `%fuse`, `%park`, and `%merge`.
This commit is contained in:
ryjm 2023-02-06 15:37:23 -05:00 committed by ryjm
parent 463a94101a
commit 62b6e8c8f8

View File

@ -4828,6 +4828,8 @@
%merg :: direct state up
?: =(%$ des.req)
~&(%merg-no-desk !!)
?. ((sane %tas) des.req)
~&(%merg-bad-desk-name !!)
=^ mos ruf
=/ den ((de now rof hen ruf) our des.req)
abet:(start-merge:den her.req dem.req cas.req how.req)
@ -4836,6 +4838,8 @@
%fuse
?: =(%$ des.req)
~&(%fuse-no-desk !!)
?. ((sane %tas) des.req)
~&(%fuse-bad-desk-name !!)
=^ mos ruf
=/ den ((de now rof hen ruf) our des.req)
abet:(start-fuse:den bas.req con.req)
@ -4881,6 +4885,8 @@
[(weld moves-1 moves-2) ..^^$]
::
%park
?. ((sane %tas) des.req)
~&(%park-bad-desk !!)
=^ mos ruf
=/ den ((de now rof hen ruf) our des.req)
abet:(park:den | & [yok ran]:req)