From 3ce3051befd26f63bf6917fcc1297b228bff843b Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Mon, 3 Jul 2023 01:09:24 -0700 Subject: [PATCH] lambdaize --- gib-gab-gob/rps.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gib-gab-gob/rps.scm b/gib-gab-gob/rps.scm index 9b71701..7161742 100644 --- a/gib-gab-gob/rps.scm +++ b/gib-gab-gob/rps.scm @@ -33,7 +33,7 @@ [(register-opponent name peer sealed-pick) (format #t "Hey there, ~a! You sent me your pick of rock-paper-scissors; now I will send mine.\n" name) (on (<- (<- peer 'pick->unsealer pick) sealed-pick) - (lambda (peer-pick) + (λ (peer-pick) (define won? (rps-winner pick peer-pick)) (format #t "Opponent ~a has picked ~a (do I win? ~a). Time to be a controller.\n" name peer-pick won?) (bcom (^game-controller bcom won? peer))))])) @@ -51,8 +51,7 @@ (define lobby ($ mycapn 'enliven lobby-sref)) (define client-picker (spawn ^client-picker lobby ^game-controller)) (on (<- lobby 'register-opponent user-name client-picker ($ client-picker 'get-sealed-pick)) - (lambda (_) - (format #t "~a finished the game.\n" user-name))))) + (λ (_) (format #t "~a finished the game.\n" user-name))))) (define (^client-picker bcom lobby ^game-controller) (define-values (seal-pick unseal-pick my-pick?)