diff --git a/gib-gab-gob/rps.scm b/gib-gab-gob/rps.scm index d615121..cd92964 100644 --- a/gib-gab-gob/rps.scm +++ b/gib-gab-gob/rps.scm @@ -51,7 +51,8 @@ (define initiator ($ mycapn 'enliven init-sref)) (define joiner (spawn ^game-joiner initiator ^game-controller)) (on (<- initiator 'register-opponent joiner ($ joiner 'get-sealed-pick)) - (lambda (_) (<- initiator 'try-transition)))) + (lambda (_) (<- initiator 'try-transition))) + joiner) (define (^game-joiner bcom initiator ^game-controller) (define-values (seal-pick unseal-pick my-pick?)