arvo: add dummy ford and fix whey scry

This commit is contained in:
Philip Monk 2020-06-12 21:40:13 -07:00
parent 21c0f77321
commit 0447ac1ee1
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
2 changed files with 11 additions and 1 deletions

View File

@ -752,7 +752,7 @@
%+ turn von
=/ bem=beam [[our %home da+now] /whey]
|= [lal=@tas =vane]
=/ met (need (need (peek ** ~ lal bem)))
=/ met (need (need (peek ** ~ (rsh 3 5 lal) bem)))
lal^|+;;((list mass) q.q.met)
::
:+ %caches %|

View File

@ -0,0 +1,10 @@
!:
|= pit=vase
|= [our=ship now=@da eny=@uvJ ski=sley]
|%
++ call |=(* ~&(%ford-call-gone `..^$))
++ take |=(* ~&(%ford-take-gone `..^$))
++ scry |=(* ``mass+!>(*(list mass)))
++ stay ~
++ load |=(* ..^$)
--