Remove registered subscription from gall when sending %quit.

This commit is contained in:
Fang 2017-11-23 22:16:59 +01:00
parent 013878c84e
commit 18cd954af7

View File

@ -801,7 +801,7 @@
++ ap-move-quit :: give quit move
|= {sto/bone vax/vase}
^- {(each cove tang) _+>}
:_ +>
:_ +>(sup.ged (~(del by sup.ged) sto))
?^ q.vax [%| (ap-suck "quit: improper give")]
[%& `cove`[sto %give `cuft`[%quit ~]]]
::