From aea22730d30c5a41a97bdc82361487e62f2af884 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Thu, 6 Jul 2023 22:40:45 -0700 Subject: [PATCH] Return the joiner --- gib-gab-gob/rps.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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?)