Further tidying

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)

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))))