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

Return the joiner

Browse source
This commit is contained in:
Vivianne 2023-07-06 22:40:45 -07:00
parent e4a9dda6cd
commit aea22730d3
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

@ -51,7 +51,8 @@
(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))
(on (<- initiator 'register-opponent joiner ($ joiner 'get-sealed-pick)) (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 (^game-joiner bcom initiator ^game-controller)
(define-values (seal-pick unseal-pick my-pick?) (define-values (seal-pick unseal-pick my-pick?)