syndicate-lang
/
racket-ssh-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

debug-name prefab structure.

This commit is contained in:
Tony Garnock-Jones 2012-07-04 17:51:53 -04:00
parent f2046db35d
commit 9f1bd80009
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
new-server.rkt
View File

@ -34,7 +34,7 @@
[(topic 'publisher (tcp-channel remote-addr (== server-addr) _) #f)
(transition state
(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)
(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
;; spuriously binding nested-boot-pid without blaming the wrong
;; process in case of error.