forked from vv/bugafriend
17 lines
536 B
Scheme
17 lines
536 B
Scheme
(define-module (bugafriend listener)
|
|
#:use-module (bugafriend utils registry)
|
|
#:use-module (goblins)
|
|
#:use-module (goblins ocapn ids)
|
|
#:export (listen))
|
|
|
|
;; Code for the listener
|
|
(define (^listener bcom)
|
|
(lambda (text) (format #t "~a\n" text)))
|
|
|
|
(define (listen setup-sref)
|
|
(on (prelay-sref->mycapn-registry setup-sref)
|
|
(lambda (registry)
|
|
(define listener (spawn ^listener))
|
|
(define listener-id ($ registry 'register listener))
|
|
(format #t "Listener registered at ~s\n" (ocapn-id->string listener-id)))))
|