All forks now generated as frog.

This commit is contained in:
C. Guy Yarvin 2016-01-10 20:43:13 -08:00
parent 2326fa1ade
commit 9c4c196f48

View File

@ -8774,13 +8774,12 @@
?: (lien leg |=({p/span q/twig} (~(has in fan) [p q])))
~|(%rest-loop !!)
=> .(fan (~(gas in fan) leg))
%+ roll
%- %~ tap in
%- ~(gas in *(set span))
(turn leg |=({p/span q/twig} (play(sut p) q)))
==
~
=+([p=*span q=`span`%void] |.((fork p q)))
%- frog
%- %~ tap in
%- ~(gas in *(set span))
(turn leg |=({p/span q/twig} (play(sut p) q)))
==
~
::
++ seek
|= hyp/wing