From 9ef1165c9a4d20ecd687c23178f1dbdbccff2897 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 17 Jan 2012 16:17:42 -0500
Subject: [PATCH] Add compiled-zone?.

---
 zonedb.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/zonedb.rkt b/zonedb.rkt
index c1381e9..8ad3419 100644
--- 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.