From 435951dd23c133c4285b757990e1393b42004edf Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 13 Aug 2012 16:50:19 -0400 Subject: [PATCH] Rename kill to quit --- new-server.rkt | 8 ++++---- ssh-transport.rkt | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/new-server.rkt b/new-server.rkt index 69e0ef6..bbbcc0a 100644 --- a/new-server.rkt +++ b/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 diff --git a/ssh-transport.rkt b/ssh-transport.rkt index 59e8638..98fabda 100644 --- a/ssh-transport.rkt +++ b/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)