#!@GUILE@ --no-auto-compile
-*- scheme -*-
!#

(use-modules
  (goblins)
  (goblins ocapn ids)
  (fibers conditions)
  (bugafriend listener))

;; So far nothing triggers this for listener
(define can-quit? (make-condition))

(with-vat (spawn-vat #:name "Listener UI")
  (listen-chat (string->ocapn-id (list-ref (command-line) 1))))

(wait can-quit?)