Rename kill to quit

new-server.rkt

@@ -74,7 +74,7 @@
 	 #:name 'socket-reader
 	 #:state state
 	 [(tcp-channel _ _ (? eof-object?))
-	  (transition state (kill))]
+	  (transition state (quit))]
 	 [(tcp-channel _ _ (? bytes? remote-identification))
 	  (check-remote-identification! remote-identification)
 	  (sequence-actions (transition state)
@@ -118,7 +118,7 @@
     (transition inert-exception-handler
       (when interesting? (send-message (exn->outbound-packet reason)))
       (yield #:state state ;; gross
-	(transition state (at-meta-level (kill #:reason (and interesting? reason)))))))
+	(transition state (at-meta-level (quit #:reason (and interesting? reason)))))))
 
   (define (inert-exception-handler reason)
     inert-exception-handler)
@@ -194,7 +194,7 @@
        (transition state
 	 (ch-do send-feedback inbound-stream (channel-stream-ok))
 	 (role (topic-subscriber (cons (thread-dead-evt repl-thread) (wild)))
-	   [_ (kill #:reason "REPL thread exited")])
+	   [_ (quit #:reason "REPL thread exited")])
 	 (role (topic-subscriber (cons (peek-bytes-avail!-evt dummy-buffer 0 #f s2c-in) (wild)))
 	   ;; We're using peek-bytes-avail!-evt rather than
 	   ;; read-bytes-avail!-evt because of potential overwriting
@@ -209,7 +209,7 @@
 	    (close-output-port c2s-out)
 	    (close-input-port s2c-in)
 	    (close-output-port s2c-out)
-	    (transition state (kill))]
+	    (transition state (quit))]
 	   [(cons _ (? number? count))
 	    (transition state
 	      (ch-do send-message outbound-stream (channel-stream-data

ssh-transport.rkt

@@ -301,7 +301,7 @@
 				      sequence-number
 				      remaining-credit))
        [(tcp-channel _ _ (? eof-object?))
-	(transition state (kill))]
+	(transition state (quit))]
        [(tcp-channel _ _ (? bytes? encrypted-packet))
 	(define block-size (supported-cipher-block-size cipher-description))
 	(define first-block-size block-size)