Rename #:monitor? to #:exit-signal? in spawn's arguments.
This commit is contained in:
parent
a44b7ba3e2
commit
28cc220010
|
@ -168,7 +168,7 @@
|
||||||
(lambda (ignored-state) (ssh-reader local-addr remote-addr))
|
(lambda (ignored-state) (ssh-reader local-addr remote-addr))
|
||||||
;; Finally, spawn the remaining processes and issue the initial credit to the reader.
|
;; Finally, spawn the remaining processes and issue the initial credit to the reader.
|
||||||
(spawn (ssh-writer local-addr remote-addr)
|
(spawn (ssh-writer local-addr remote-addr)
|
||||||
#:monitor? #t
|
#:exit-signal? #t
|
||||||
#:debug-name 'ssh-writer)
|
#: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 single
|
;; started, then tell the reader we are ready for a single
|
||||||
|
@ -181,7 +181,7 @@
|
||||||
remote-identification
|
remote-identification
|
||||||
repl-boot
|
repl-boot
|
||||||
'server)
|
'server)
|
||||||
#:monitor? #t
|
#:exit-signal? #t
|
||||||
#:debug-name 'ssh-session))))]))))
|
#:debug-name 'ssh-session))))]))))
|
||||||
|
|
||||||
(define (exn->outbound-packet reason)
|
(define (exn->outbound-packet reason)
|
||||||
|
@ -198,7 +198,7 @@
|
||||||
;; several times in a row because of multiple flows intersecting
|
;; several times in a row because of multiple flows intersecting
|
||||||
;; this role, we have to be careful to make the transmission of
|
;; this role, we have to be careful to make the transmission of
|
||||||
;; the disconnection packet idempotent.
|
;; the disconnection packet idempotent.
|
||||||
;; TODO: this is likely no longer true now we're using monitors %%%
|
;; TODO: this is likely no longer true now we're using exit-signals %%%
|
||||||
(define interesting? (disconnect-message-required? reason))
|
(define interesting? (disconnect-message-required? reason))
|
||||||
(transition inert-exception-handler
|
(transition inert-exception-handler
|
||||||
(when interesting? (send-message (exn->outbound-packet reason)))
|
(when interesting? (send-message (exn->outbound-packet reason)))
|
||||||
|
@ -226,11 +226,11 @@
|
||||||
(at-meta-level (send-tcp-credit remote-addr local-addr 1))
|
(at-meta-level (send-tcp-credit remote-addr local-addr 1))
|
||||||
|
|
||||||
(spawn (read-handshake-and-become-reader)
|
(spawn (read-handshake-and-become-reader)
|
||||||
#:monitor? #t
|
#:exit-signal? #t
|
||||||
#:debug-name 'ssh-reader)
|
#:debug-name 'ssh-reader)
|
||||||
|
|
||||||
(spawn (transition active-exception-handler
|
(spawn (transition active-exception-handler
|
||||||
(role 'monitor-listener (topic-subscriber (monitor (wild) (wild)))
|
(role 'exit-signal-listener (topic-subscriber (exit-signal (wild) (wild)))
|
||||||
#:state current-handler
|
#:state current-handler
|
||||||
#:reason reason
|
#:reason reason
|
||||||
#:on-absence (current-handler reason))))))))
|
#:on-absence (current-handler reason))))))))
|
||||||
|
|
|
@ -867,7 +867,7 @@
|
||||||
#f)
|
#f)
|
||||||
|
|
||||||
(spawn (nested-vm 'ssh-application-vm application-boot)
|
(spawn (nested-vm 'ssh-application-vm application-boot)
|
||||||
#:monitor? #t
|
#:exit-signal? #t
|
||||||
#:debug-name 'ssh-application-vm)
|
#: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)))
|
||||||
|
|
Loading…
Reference in New Issue