From b0f3ed155cd705d00bdff93ba83611ed7f0081ca Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Sun, 5 Feb 2023 06:23:22 -0800 Subject: [PATCH] Rename exchange-pick-for-unsealer --- gib-gab-gob/actors.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gib-gab-gob/actors.scm b/gib-gab-gob/actors.scm index 623f7f1..c0da1d3 100644 --- a/gib-gab-gob/actors.scm +++ b/gib-gab-gob/actors.scm @@ -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]))