debug-name prefab structure.
This commit is contained in:
parent
f2046db35d
commit
9f1bd80009
|
@ -34,7 +34,7 @@
|
||||||
[(topic 'publisher (tcp-channel remote-addr (== server-addr) _) #f)
|
[(topic 'publisher (tcp-channel remote-addr (== server-addr) _) #f)
|
||||||
(transition state
|
(transition state
|
||||||
(spawn (session-vm server-addr remote-addr)
|
(spawn (session-vm server-addr remote-addr)
|
||||||
#:debug-name (list 'ssh-session-vm remote-addr)))]))))
|
#:debug-name (debug-name 'ssh-session-vm remote-addr)))]))))
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
@ -208,7 +208,7 @@
|
||||||
inert-exception-handler)
|
inert-exception-handler)
|
||||||
|
|
||||||
(nested-vm
|
(nested-vm
|
||||||
(list 'ssh-session-vm remote-addr)
|
(debug-name 'ssh-session-vm remote-addr)
|
||||||
;; TODO: use (not-yet-existing) macro variant of nested-vm to avoid
|
;; TODO: use (not-yet-existing) macro variant of nested-vm to avoid
|
||||||
;; spuriously binding nested-boot-pid without blaming the wrong
|
;; spuriously binding nested-boot-pid without blaming the wrong
|
||||||
;; process in case of error.
|
;; process in case of error.
|
||||||
|
|
Loading…
Reference in New Issue