Add compiled-zone?.

2012-01-17 16:17:42 -05:00 · 2012-01-17 16:17:42 -05:00 · 9ef1165c9a
parent 1f969de125
commit 9ef1165c9a
1 changed files with 4 additions and 0 deletions
--- a/zonedb.rkt
+++ b/zonedb.rkt
@ -9,6 +9,7 @@

 (provide incorporate-rr
 	 compile-zone-db
+	 compiled-zone?
 	 in-bailiwick?
 	 set-filter
 	 filter-by-type
@ -32,6 +33,9 @@
 (define (compile-zone-db rrs)
  (foldl incorporate-rr (make-immutable-hash) rrs))

+(define (compiled-zone? z)
+  (hash? z)) ;; hm
+
 ;; in-bailiwick? : DomainName RR -> Boolean
 ;; Answers #t iff dn falls within the bailiwick of the zone with
 ;; origin rr.