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

Switch to symbolic specification of relative timeouts

This commit is contained in:
Tony Garnock-Jones 2012-02-19 17:09:07 -05:00
parent 659cb13738
commit 70b8d875b7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
network-query.rkt
View File

@ -220,7 +220,7 @@
(newline))
(transition w
(send-message (dns-request query s server-ip))
(send-message (set-timer subscription-id (* timeout 1000) #t))
(send-message (set-timer subscription-id (* timeout 1000) 'relative))
(subscribe subscription-id
(message-handlers w
[(timer-expired (== subscription-id) _)

2
proxy.rkt
View File

@ -149,7 +149,7 @@
(transition new-zone
(for/list ([timerspec timers])
(match-define (cons name ttl) timerspec)
(send-message (set-timer (list 'check-dns-expiry name) (* ttl 1000) #t)))))
(send-message (set-timer (list 'check-dns-expiry name) (* ttl 1000) 'relative)))))
(os-big-bang/transition
(extend-transition (let-values (((expired-zone timers) (zone-expire zone0)))
(transition-and-set-timers expired-zone timers))