Switch to tor

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