Room evaluates names, no caching so a bit slow

bugafriend/room.scm

@@ -21,13 +21,26 @@
 
 (define (^room-presence bcom name)
   "Each user has a presence in the room"
+  (define (run-with-name user thunk)
+    (on (<- user 'name)
+        (λ (name)
+          (thunk name))))
+
   (methods
    [(name) name]
    [(join user)
-    (format #t "~a joined.\n" user)]
+    (run-with-name user
+     (λ (name)
+       (format #t "~a joined.\n" name)))]
    [(leave user)
-    (format #t "~a left.\n" user)]
+    (run-with-name user
+     (λ (name)
+       (format #t "~a left.\n" name)))]
    [(say user message)
-    (format #t "~a: ~a\n" user message)]
+    (run-with-name user
+     (λ (name)
+       (format #t "~a: ~a\n" name message)))]
    [(me user message)
-    (format #t "* ~a ~a\n" user message)]))
+    (run-with-name user
+     (λ (name)
+       (format #t "* ~a ~a\n" name message)))]))

bugafriend/ui.scm

@@ -136,8 +136,6 @@
 (define (say setup-sref name)
   (define vat (spawn-vat #:name "Speaker Vat"))
 
-  ;;(set-readline-prompt! " 🐞 > ")
-
   (with-vat
    vat
    (format #t "Connecting to relay...\n")