Add compiled-zone?.
This commit is contained in:
parent
1f969de125
commit
9ef1165c9a
|
@ -9,6 +9,7 @@
|
||||||
|
|
||||||
(provide incorporate-rr
|
(provide incorporate-rr
|
||||||
compile-zone-db
|
compile-zone-db
|
||||||
|
compiled-zone?
|
||||||
in-bailiwick?
|
in-bailiwick?
|
||||||
set-filter
|
set-filter
|
||||||
filter-by-type
|
filter-by-type
|
||||||
|
@ -32,6 +33,9 @@
|
||||||
(define (compile-zone-db rrs)
|
(define (compile-zone-db rrs)
|
||||||
(foldl incorporate-rr (make-immutable-hash) rrs))
|
(foldl incorporate-rr (make-immutable-hash) rrs))
|
||||||
|
|
||||||
|
(define (compiled-zone? z)
|
||||||
|
(hash? z)) ;; hm
|
||||||
|
|
||||||
;; in-bailiwick? : DomainName RR -> Boolean
|
;; in-bailiwick? : DomainName RR -> Boolean
|
||||||
;; Answers #t iff dn falls within the bailiwick of the zone with
|
;; Answers #t iff dn falls within the bailiwick of the zone with
|
||||||
;; origin rr.
|
;; origin rr.
|
||||||
|
|
Loading…
Reference in New Issue