remove readline

bugafriend/room.scm

@@ -24,9 +24,9 @@
   (methods
    [(name) name]
    [(join user)
-    (format #t "~a joined." user)]
+    (format #t "~a joined.\n" user)]
    [(leave user)
-    (format #t "~a left." user)]
+    (format #t "~a left.\n" user)]
    [(say user message)
     (format #t "~a: ~a\n" user message)]
    [(me user message)

bugafriend/ui.scm

@@ -116,7 +116,7 @@
         (format #t "Command failed: ~s\n" e)
         (loop! #t))
     (λ ()
-      (let ((line (readline)))
+      (let ((line (read-line (current-input-port))))
         (with-vat vat
          (cond
           ((eq? 0 (string-length line)) (loop! #t))
@@ -127,18 +127,17 @@
              (if room-data
                  (let ((room (room-data-room room-data))
                        (presence (room-data-presence room-data)))
-                   (format #t "Presence: ~s\n" presence)
                    (on (<- room 'say presence line)
                        (λ (val) (loop! val))))
                  (begin
-                   (format #t "Not connected to anyone yet. Use /join <sturdyref>!\n")
+                   (format #t "Not in a room yet. Use /create or /join <sturdyref>!\n")
                    (loop! #t)))))))))
     #:unwind? #t))
 
 (define (say setup-sref name)
   (define vat (spawn-vat #:name "Speaker Vat"))
 
-  (set-readline-prompt! " 🐞 > ")
+  ;;(set-readline-prompt! " 🐞 > ")
 
   (with-vat
    vat