syndicate-lang
/
racket-ssh-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rename kill to quit

This commit is contained in:
Tony Garnock-Jones 2012-08-13 16:50:19 -04:00
parent ff2cd74339
commit 435951dd23
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
new-server.rkt
View File

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

2
ssh-transport.rkt
View File

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