Cope with merge of spawn/monitor into spawn.
This commit is contained in:
parent
9501a73fc5
commit
e6c867ab7f
|
@ -153,18 +153,21 @@
|
||||||
(extend-transition
|
(extend-transition
|
||||||
(prefix-transition (ssh-reader local-addr remote-addr)
|
(prefix-transition (ssh-reader local-addr remote-addr)
|
||||||
(at-meta-level (send-tcp-mode remote-addr local-addr 'bytes)))
|
(at-meta-level (send-tcp-mode remote-addr local-addr 'bytes)))
|
||||||
(spawn/monitor (ssh-writer local-addr remote-addr) #:debug-name 'ssh-writer)
|
(spawn (ssh-writer local-addr remote-addr)
|
||||||
|
#:monitor? #t
|
||||||
|
#:debug-name 'ssh-writer)
|
||||||
;; Wait for a cycle to let the reader and writer get
|
;; Wait for a cycle to let the reader and writer get
|
||||||
;; started, then tell the reader we are ready for a
|
;; started, then tell the reader we are ready for a
|
||||||
;; single packet and spawn the session manager.
|
;; single packet and spawn the session manager.
|
||||||
(yield #:state state
|
(yield #:state state
|
||||||
(transition state
|
(transition state
|
||||||
(send-message (inbound-credit 1))
|
(send-message (inbound-credit 1))
|
||||||
(spawn/monitor (ssh-session local-identification
|
(spawn (ssh-session local-identification
|
||||||
remote-identification
|
remote-identification
|
||||||
repl-boot
|
repl-boot
|
||||||
'server)
|
'server)
|
||||||
#:debug-name 'ssh-session))))]))))
|
#:monitor? #t
|
||||||
|
#:debug-name 'ssh-session))))]))))
|
||||||
|
|
||||||
(define (exn->outbound-packet reason)
|
(define (exn->outbound-packet reason)
|
||||||
(outbound-packet (ssh-msg-disconnect (exn:fail:contract:protocol-reason-code reason)
|
(outbound-packet (ssh-msg-disconnect (exn:fail:contract:protocol-reason-code reason)
|
||||||
|
@ -207,7 +210,9 @@
|
||||||
(at-meta-level (send-tcp-mode remote-addr local-addr 'lines))
|
(at-meta-level (send-tcp-mode remote-addr local-addr 'lines))
|
||||||
(at-meta-level (send-tcp-credit remote-addr local-addr 1))
|
(at-meta-level (send-tcp-credit remote-addr local-addr 1))
|
||||||
|
|
||||||
(spawn/monitor (read-handshake-and-become-reader) #:debug-name 'ssh-reader)
|
(spawn (read-handshake-and-become-reader)
|
||||||
|
#:monitor? #t
|
||||||
|
#:debug-name 'ssh-reader)
|
||||||
|
|
||||||
(spawn (transition active-exception-handler
|
(spawn (transition active-exception-handler
|
||||||
(role 'monitor-listener (topic-subscriber (monitor (wild) (wild)))
|
(role 'monitor-listener (topic-subscriber (monitor (wild) (wild)))
|
||||||
|
|
|
@ -870,8 +870,9 @@
|
||||||
peer-identification-string
|
peer-identification-string
|
||||||
#f)
|
#f)
|
||||||
|
|
||||||
(spawn/monitor (nested-vm 'ssh-application-vm application-boot)
|
(spawn (nested-vm 'ssh-application-vm application-boot)
|
||||||
#:debug-name 'ssh-application-vm)
|
#:monitor? #t
|
||||||
|
#:debug-name 'ssh-application-vm)
|
||||||
|
|
||||||
(role 'rekey-waiter (topic-subscriber (timer-expired 'rekey-timer (wild)))
|
(role 'rekey-waiter (topic-subscriber (timer-expired 'rekey-timer (wild)))
|
||||||
#:state conn
|
#:state conn
|
||||||
|
|
Loading…
Reference in New Issue