Fix stupid zone expiry bug: timers are to be relative!

2012-02-19 12:37:55 -05:00 · 2012-02-19 12:37:55 -05:00 · 1d9e06eee5
parent e8c13053f1
commit 1d9e06eee5
1 changed files with 1 additions and 1 deletions
--- a/zonedb.rkt
+++ b/zonedb.rkt
@ -120,7 +120,7 @@
      (lambda (expirymap)
 	(values new-zone
 		(set-union (list->set
-			    (map (lambda (e) (cons name e))
+			    (map (lambda (e) (cons name (- e now-seconds)))
 				 (filter (lambda (e) (not (infinite-lifetime? e)))
 					 (hash-values expirymap))))
 			   timers)))]