diff --git a/gib-gab-gob/rps.scm b/gib-gab-gob/rps.scm index 7f3e2bc..b9e5df9 100644 --- a/gib-gab-gob/rps.scm +++ b/gib-gab-gob/rps.scm @@ -5,24 +5,16 @@ #:use-module (goblins actor-lib sealers) #:use-module (goblins ocapn captp) #:use-module (goblins ocapn ids) - #:use-module (goblins ocapn netlayer testuds) + #:use-module (goblins ocapn netlayer onion) #:export (make-initiator make-joiner ^game-initiator ^game-joiner)) -;; -;; Helper to use testuds netlayer -;; -(define (new-testuds-netlayer) - (define tmp "/tmp/netlayers") - (unless (access? tmp X_OK) (mkdir tmp)) - (spawn ^testuds-netlayer tmp)) - ;; ;; Initiator logic ;; (define (make-initiator ^game-controller) (with-vat (spawn-vat) (define initiator (spawn ^game-initiator ^game-controller)) - (define mycapn (spawn-mycapn (new-testuds-netlayer))) + (define mycapn (spawn-mycapn (new-onion-netlayer))) (define init-sref ($ mycapn 'register initiator 'testuds)) (format #t "Connect to: ~a\n" (ocapn-id->string init-sref))))