syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix (observe (server-envelope A B)) => (server-proposal A (observe B))

This commit is contained in:
Tony Garnock-Jones 2019-05-16 23:13:56 +01:00
parent 94e27e1cbc
commit 8daff63e8e
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
syndicate/distributed/federation.rkt
View File

@ -137,7 +137,6 @@
(define ep (gensym 'ep))
(on-start (!! (Assert ep (observe spec))))
(on-stop (!! (Clear ep)))
(assert (server-envelope scope (observe spec)))
(on (message (server-envelope management-scope
(message-server->poa session-id (Add ep $captures))))
(react (assert (instantiate-term->value pat captures))

2
syndicate/distributed/server.rkt
View File

@ -15,6 +15,8 @@
(assert (server-envelope scope assertion)))
(on (message (server-proposal $scope $body))
(send! (server-envelope scope body)))
(during (observe (server-envelope $scope $spec))
(assert (server-proposal scope (observe spec))))
(during/spawn (server-poa $id)
(on-start