+(define (agenda-handle-port-remove-request! agenda port-remove-request)
+ "Update an agenda for a port-remove-request"
+ (let ((port (port-remove-request-port port-remove-request)))
+ (hash-remove! (agenda-read-port-map agenda) port)
+ (hash-remove! (agenda-write-port-map agenda) port)
+ (hash-remove! (agenda-except-port-map agenda) port)))
+
+