forked from vv/bugafriend
17 lines
348 B
Scheme
17 lines
348 B
Scheme
#!@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?) |