clay: propagate [~ ~] properly from read-x

This commit is contained in:
pkova 2023-07-28 15:44:03 +03:00 committed by Pyry Kovanen
parent c35aabcebf
commit 7bea0038e5

View File

@ -4475,7 +4475,7 @@
^- [(unit (unit cage)) _..park]
=/ q (read-q tak pax)
?~ q `..park
?~ u.q `..park
?~ u.q [[~ ~] ..park]
:: should convert any lobe to cage
::
=^ =cage ..park