Rename fake-tcp's tcp-accept to topic->tcp-connection
This commit is contained in:
parent
435951dd23
commit
b946c4678c
|
@ -61,7 +61,7 @@
|
|||
action ...)))
|
||||
|
||||
(define (session-vm new-connection-topic)
|
||||
(define-values (cin cout in-topic out-topic) (tcp-accept new-connection-topic))
|
||||
(define-values (cin cout in-topic out-topic) (topic->tcp-connection new-connection-topic))
|
||||
(define local-identification #"SSH-2.0-RacketSSH_0.0")
|
||||
|
||||
(define (issue-identification-string)
|
||||
|
|
|
@ -280,7 +280,7 @@
|
|||
(struct ssh-reader-state (mode config sequence-number remaining-credit) #:prefab)
|
||||
|
||||
(define (ssh-reader new-connection-topic)
|
||||
(define-values (cin cout in-topic out-topic) (tcp-accept new-connection-topic))
|
||||
(define-values (cin cout in-topic out-topic) (topic->tcp-connection new-connection-topic))
|
||||
(define packet-size-limit (default-packet-limit))
|
||||
|
||||
(define (issue-credit state)
|
||||
|
@ -395,7 +395,7 @@
|
|||
(struct ssh-writer-state (config sequence-number) #:prefab)
|
||||
|
||||
(define (ssh-writer new-connection-topic)
|
||||
(define-values (cin cout in-topic out-topic) (tcp-accept new-connection-topic))
|
||||
(define-values (cin cout in-topic out-topic) (topic->tcp-connection new-connection-topic))
|
||||
(transition (ssh-writer-state initial-crypto-configuration 0)
|
||||
(role (set (topic-subscriber (outbound-packet (wild)))
|
||||
(topic-publisher (outbound-byte-credit (wild))))
|
||||
|
|
Loading…
Reference in New Issue