vv
/
gib-gab-gob
1
0
Fork 1
Code Issues Pull Requests Activity

Do the transition after registering.

This commit is contained in:
Vivianne 2023-07-06 22:27:05 -07:00
parent 3bb0c69096
commit e4a9dda6cd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gib-gab-gob/rps.scm
View File

@ -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?)