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

Rename exchange-pick-for-unsealer

This commit is contained in:
Vivianne 2023-02-05 06:23:22 -08:00
parent af674390cb
commit b0f3ed155c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gib-gab-gob/actors.scm
View File

@ -11,7 +11,7 @@
(methods (methods
[(register-opponent name client sealed-pick) [(register-opponent name client sealed-pick)
(format #t "Hey there, ~a! You sent me your pick of rock-paper-scissors; now I will send mine.\n" name) (format #t "Hey there, ~a! You sent me your pick of rock-paper-scissors; now I will send mine.\n" name)
(on (<- (<- client 'exchange-pick-for-unsealer pick) sealed-pick) (on (<- (<- client 'pick->unsealer pick) sealed-pick)
(lambda (peer-pick) (lambda (peer-pick)
(format #t "The peer has picked ~a (do I win? ~s)\n" peer-pick (rps-winner pick peer-pick))))])) (format #t "The peer has picked ~a (do I win? ~s)\n" peer-pick (rps-winner pick peer-pick))))]))
@ -21,6 +21,6 @@
(define pick (pick-rps)) (define pick (pick-rps))
(methods (methods
[(get-sealed-pick) ($ seal-pick pick)] [(get-sealed-pick) ($ seal-pick pick)]
[(exchange-pick-for-unsealer peer-pick) [(pick->unsealer peer-pick)
(format #t "Peer picked ~a... a bold choice (do I win? ~s), i will send my unsealer\n" peer-pick (rps-winner pick peer-pick)) (format #t "Peer picked ~a... a bold choice (do I win? ~s), i will send my unsealer\n" peer-pick (rps-winner pick peer-pick))
unseal-pick])) unseal-pick]))