From 9f1bd80009ea7bf47fd2854181be85440f36a982 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 4 Jul 2012 17:51:53 -0400 Subject: [PATCH] debug-name prefab structure. --- new-server.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/new-server.rkt b/new-server.rkt index 86290f8..a966b9d 100644 --- a/new-server.rkt +++ b/new-server.rkt @@ -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.