Do the transition after registering.
This commit is contained in:
parent
3bb0c69096
commit
e4a9dda6cd
|
@ -50,7 +50,8 @@
|
||||||
(define init-sref (string->ocapn-id addr))
|
(define init-sref (string->ocapn-id addr))
|
||||||
(define initiator ($ mycapn 'enliven init-sref))
|
(define initiator ($ mycapn 'enliven init-sref))
|
||||||
(define joiner (spawn ^game-joiner initiator ^game-controller))
|
(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 (^game-joiner bcom initiator ^game-controller)
|
||||||
(define-values (seal-pick unseal-pick my-pick?)
|
(define-values (seal-pick unseal-pick my-pick?)
|
||||||
|
|
Loading…
Reference in New Issue