gall: don't verify spider marks

This commit is contained in:
ryjm 2021-09-24 16:24:27 -04:00
parent 32d97b8578
commit c630b560ee
2 changed files with 7 additions and 1 deletions

View File

@ -1590,7 +1590,7 @@
=. fod.dom ford-cache.args
=. ..park (emil (print q.old-yaki data))
::
=? ..park &(updated !dist-upgraded.ruf) migrate-dist
:: =? ..park &(updated !dist-upgraded.ruf) migrate-dist
::
wake:(ergo mim)
::

View File

@ -1408,6 +1408,12 @@
?. ?=(%raw-fact -.unto)
[unto ap-core]
=/ =case:clay da+now
~& > take+beak.yoke
~& > take+mark.unto
~& > take+[agent-name agent-routes agent-duct]
?: ?=(%spider agent-name)
:- [%fact mark.unto !>(noun.unto)]
ap-core
=/ sky (rof ~ %cb [our q.beak.yoke case] /[mark.unto])
?. ?=([~ ~ *] sky)
(mean leaf+"gall: ames mark fail {<mark.unto>}" ~)