From e4a9dda6cdb9ef1c0c70d82117e939b876d6db67 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Thu, 6 Jul 2023 22:27:05 -0700 Subject: [PATCH] Do the transition after registering. --- 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 11513a1..d615121 100644 --- a/gib-gab-gob/rps.scm +++ b/gib-gab-gob/rps.scm @@ -50,7 +50,8 @@ (define init-sref (string->ocapn-id addr)) (define initiator ($ mycapn 'enliven init-sref)) (define joiner (spawn ^game-joiner initiator ^game-controller)) - (<- initiator 'register-opponent joiner ($ joiner 'get-sealed-pick))) + (on (<- initiator 'register-opponent joiner ($ joiner 'get-sealed-pick)) + (lambda (_) (<- initiator 'try-transition)))) (define (^game-joiner bcom initiator ^game-controller) (define-values (seal-pick unseal-pick my-pick?)