Rename exchange-pick-for-unsealer
This commit is contained in:
parent
af674390cb
commit
b0f3ed155c
|
@ -11,7 +11,7 @@
|
|||
(methods
|
||||
[(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)
|
||||
(on (<- (<- client 'exchange-pick-for-unsealer pick) sealed-pick)
|
||||
(on (<- (<- client 'pick->unsealer pick) sealed-pick)
|
||||
(lambda (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))
|
||||
(methods
|
||||
[(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))
|
||||
unseal-pick]))
|
||||
|
|
Loading…
Reference in New Issue