gall: implement pupal +stay

This commit is contained in:
Ted Blackman 2021-09-29 16:24:12 -04:00
parent 36a29eec8a
commit 7e5feb4cb4

View File

@ -206,7 +206,7 @@
(molt duct `[duct %slip %g task])
::
++ scry scry:adult-core
++ stay ~|(%gall-subinvolution !!)
++ stay spore
++ take
|= [=wire =duct dud=(unit goof) sign=sign-arvo]
=* take-args +<
@ -227,7 +227,6 @@
(spore-7-to-8 old)
?> ?=(%8 -.old)
=. spore old
::TODO suspend everything except hood
?. =(~ eggs.spore)
pupal-gate
~> %slog.[0 leaf+"gall: direct morphogenesis"]