ames: don't give %done on cork

Locally, %cork is guaranteed to succeed instantly. The requesting vane
doesn't need an ack to safely consider the flow "closed".
This commit is contained in:
fang 2022-08-25 18:13:29 +02:00
parent e2d546c4c2
commit 0e5b3b4107
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -3074,8 +3074,11 @@
::
?- -.u.cur
%ok
=. message-pump (give %done current.state ~)
=? message-pump cork (give %cork ~)
=. message-pump
:: don't give %done for corks
::
?: cork (give %cork ~)
(give %done current.state ~)
$(current.state +(current.state))
::
%nack