drum: fully unlink

This commit is contained in:
Philip Monk 2019-11-20 14:26:13 -08:00
parent b8903e9a6f
commit 9f89c8b8bc
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -125,7 +125,6 @@
|= our/ship
%- ~(gas in *(set gill:gall))
^- (list gill:gall)
:: [[our %talk] [our %dojo] ~]
[[our %dojo] ~]
::
++ make :: initial part
@ -203,7 +202,7 @@
++ poke-unlink :: disconnect app
|= gyl/gill:gall
=< se-abet =< se-view
(se-klin gyl)
(se-drop:(se-pull gyl) & gyl)
::
++ poke-exit :: shutdown
|= ~
@ -374,6 +373,7 @@
^- (unit gill:gall)
=+ wag=se-amor
?~ wag ~
~| [inx=inx wag=wag fug=fug eel=eel]
`(snag inx `(list gill:gall)`wag)
::
++ se-belt :: handle input