;; used by web server only
#:use-module (sxml simple)
#:use-module (web request)
;; used by web server only
#:use-module (sxml simple)
#:use-module (web request)
(define client-obj (hash-ref (nm-clients nm) client))
(match client-obj
(#f (throw 'no-such-client
"Asked to send data to client but that client doesn't exist"
#:client-id client
(define client-obj (hash-ref (nm-clients nm) client))
(match client-obj
(#f (throw 'no-such-client
"Asked to send data to client but that client doesn't exist"
#:client-id client
(define (nm-incoming-line-action nm message client-id line)
"Handle LINE coming in, probably from an external message handler,
(define (nm-incoming-line-action nm message client-id line)
"Handle LINE coming in, probably from an external message handler,