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

Better debug-names.

This commit is contained in:
Tony Garnock-Jones 2012-05-03 16:00:22 -04:00
parent d85237674a
commit f466fd6a05
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
driver.rkt
View File

@ -44,7 +44,7 @@
;; (spawn udp-spy #:debug-name 'udp-spy)
(spawn udp-driver #:debug-name 'udp-driver)
(spawn (nested-vm
'udp-vm
'dns-vm
(transition 'no-state
(spawn dns-spy #:debug-name 'dns-spy)
(spawn (dns-read-driver local-addr) #:debug-name 'dns-read-driver)
@ -56,7 +56,7 @@
(role 'request-booter (topic-subscriber (dns-request (wild) (wild) (wild)))
#:state w
[r (transition w (map send-message (handle-request soa-rr zone r)))])))
#:debug-name 'nested-udp-vm))))
#:debug-name 'dns-vm))))
(define (handle-request soa-rr zone request)
(match-define (dns-request request-message request-source request-sink) request)