Add debug printfs to generic ++quit arm in hall

This commit is contained in:
Fang 2017-12-13 15:32:09 +01:00 committed by GitHub
parent b28d912c8d
commit 032132252a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -2620,7 +2620,10 @@
|= wir/wire
^- (quip move _+>)
:_ +>
?. =(src.bol our.bol) ~
?. =(src.bol our.bol)
~& [%kicked-by src.bol wir]
~
~& [%self-quit--resubbing wir]
[(wire-to-peer wir) ~]
::
++ quit-circle