Rename fake-tcp's tcp-accept to topic->tcp-connection

This commit is contained in:
Tony Garnock-Jones 2012-08-15 15:56:11 -04:00
parent 435951dd23
commit b946c4678c
2 changed files with 3 additions and 3 deletions

View File

@ -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)

View File

@ -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))))