"Handle a closed port"
(format #t "DEBUG: handled closed port ~x\n" client-id)
(8sync-port-remove client)
- (hash-remove! (nm-clients nm) client-id))
+ (hash-remove! (nm-clients nm) client-id)
+ (<- nm (nm-send-input-to nm) 'client-closed #:client client-id))
(define-method (nm-handle-port-eof nm client client-id)
"Handle seeing an EOF on port"
(format #t "DEBUG: handled eof-object on port ~x\n" client-id)
(close client)
(8sync-port-remove client)
- (hash-remove! (nm-clients nm) client-id))
+ (hash-remove! (nm-clients nm) client-id)
+ (<- nm (nm-send-input-to nm) 'client-closed #:client client-id))
(define-method (nm-handle-line nm client client-id line)
"Handle an incoming line of input from a client"