Fix compile errors!

bugafriend/room.scm

@@ -1,6 +1,7 @@
 (define-module (bugafriend room)
   #:use-module (goblins)
   #:use-module (goblins actor-lib pubsub)
+  #:use-module (goblins actor-lib methods)
   #:export (^room ^room-presence))
 
 (define (^room bcom creator-presence)

bugafriend/ui.scm

@@ -1,5 +1,6 @@
 (define-module (bugafriend ui)
   #:use-module (bugafriend utils registry)
+  #:use-module (bugafriend room)
   #:use-module (goblins)
   #:use-module (goblins vat)
   #:use-module (goblins ocapn ids)
@@ -47,7 +48,7 @@
     (λ (args)
       (define my-presence (spawn ^room-presence "user"))
       (set! room-actor (spawn ^room my-presence))
-      (format #t "Room ID: ~a\n" ($ ocapn-registry 'register room))
+      (format #t "Room ID: ~a\n" ($ ocapn-registry 'register room-actor))
       (loop! #t)))
    (make-console-command
     "/me"
@@ -126,7 +127,7 @@
   (set-readline-prompt! " 🐞 > ")
 
   (with-vat vat
-   (format #t "Connecting to relay...\n")
+   (format #t "Connecting to relay... ~s\n" setup-sref)
    (on (prelay-sref->mycapn-registry setup-sref)
        (λ (r)
          (set! ocapn-registry r)

bugafriend/user.scm

@@ -1,7 +1,11 @@
 (define-module (bugafriend user)
   #:use-module (bugafriend utils registry)
+  #:use-module (bugafriend room)
   #:use-module (goblins)
+  #:use-module (goblins ocapn ids)
+  #:use-module (goblins actor-lib methods)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-9)
   #:export (^user))
 
 (define-record-type <room-data>
@@ -13,24 +17,24 @@
 (define (^user bcom name registry joined-room-data)
   (methods
    [(make-room)
-    (define my-presence (spawn ^room-presence name))
-    (define room (spawn ^room my-presence))
-    (define room-data (make-room-data room my-presence))
-    (on (<- registry 'register room)
-        (λ (id)
-          (format #t "New room ID: ~a\n" (ocapn-id->string id))))
-    (bcom (^user bcom name registry room-data))]
+    (let* ((my-presence (spawn ^room-presence name))
+           (room (spawn ^room my-presence))
+           (room-data (make-room-data room my-presence)))
+      (on (<- registry 'register room)
+          (λ (id)
+            (format #t "New room ID: ~a\n" (ocapn-id->string id))))
+      (bcom (^user bcom name registry room-data)))]
 
    [(join-room room)
-    (define my-presence (spawn ^room-presence name))
-    (when joined-room-data
-      (<-np (room-data-room joined-room-data) 'kick-user (room-data-presence joined-room-data))
-      (on (<- room 'add-user my-presence)
-          (λ (_)
-            (format #t "Joined room.\n")))
+    (let ((my-presence (spawn ^room-presence name)))
+      (when joined-room-data
+        (<-np (room-data-room joined-room-data) 'kick-user (room-data-presence joined-room-data))
+        (on (<- room 'add-user my-presence)
+            (λ (_)
+              (format #t "Joined room.\n")))
 
-      (define room-data (make-room-data room my-presence))
-      (bcom (^user bcom name registry room-data)))]
+        (define room-data (make-room-data room my-presence))
+        (bcom (^user bcom name registry room-data))))]
 
    [(leave-room room)
     (when (eq? room (room-data-room joined-room-data))