From 71e35eb2d52332335737f8b9fa813956f9bec8ee Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Sun, 5 Feb 2023 05:26:35 -0800 Subject: [PATCH] Further tidying --- gib-gab-gob/actors.scm | 2 +- gib-gab-gob/rps.scm | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/gib-gab-gob/actors.scm b/gib-gab-gob/actors.scm index dcaaeb0..8da3344 100644 --- a/gib-gab-gob/actors.scm +++ b/gib-gab-gob/actors.scm @@ -6,7 +6,7 @@ #:use-module (oop goops) #:export (^game-lobby ^client-picker)) -(define* (^game-lobby bcom) +(define (^game-lobby bcom) (define pick (pick-rps)) (methods ((register-opponent name client sealed-pick) diff --git a/gib-gab-gob/rps.scm b/gib-gab-gob/rps.scm index fa4b0e6..d2d3fb1 100644 --- a/gib-gab-gob/rps.scm +++ b/gib-gab-gob/rps.scm @@ -20,8 +20,7 @@ (next-method) (with-vat (vat host) (set! (lobby host) (spawn ^game-lobby)) - (define uds-netlayer (new-testuds-netlayer)) - (define mycapn (spawn-mycapn uds-netlayer)) + (define mycapn (spawn-mycapn (new-testuds-netlayer))) (define lobby-sref ($ mycapn 'register (lobby host) 'testuds)) (format #t "Connect to: ~a\n" (ocapn-id->string lobby-sref)))) @@ -46,8 +45,7 @@ (next-method) (with-vat (vat client) (define lobby-sref (string->ocapn-id (addr client))) - (define uds-netlayer (new-testuds-netlayer)) - (define mycapn (spawn-mycapn uds-netlayer)) + (define mycapn (spawn-mycapn (new-testuds-netlayer))) (set! (lobby client) (<- mycapn 'enliven lobby-sref))))