herm: close old-style subscriptions

This commit is contained in:
fang 2021-06-23 15:24:42 +02:00
parent cb10d46b88
commit 1b95f934c7
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -61,7 +61,7 @@
?+ wire !!
:: pass on dill blits for the session
::
[?(%view %dill) @ ~] ::NOTE /view for backwards compat
[%dill @ ~]
=* ses i.t.wire
?. ?=([%dill %blit *] sign-arvo)
~| [%unexpected-sign [- +<]:sign-arvo]
@ -70,6 +70,13 @@
%+ turn p.sign-arvo
|= =blit:dill
[%give %fact [%session ses ~]~ %blit !>(blit)]
::
:: clean up old-style subscriptions
::
[%view @ ~]
=* ses i.t.wire
:_ this
[%pass wire %arvo %d %shot ses %flee ~]~
==
::
++ on-poke