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

Return the joiner

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