Comment re topological sorting
This commit is contained in:
parent
1d9e06eee5
commit
42280b8d91
|
@ -179,6 +179,7 @@
|
||||||
;; rr-set->list : SetOf<RR> -> ListOf<RR>
|
;; rr-set->list : SetOf<RR> -> ListOf<RR>
|
||||||
;; Like set->list, but places all CNAME records first.
|
;; Like set->list, but places all CNAME records first.
|
||||||
;; This is apparently to work around bugs in old versions of BIND?
|
;; This is apparently to work around bugs in old versions of BIND?
|
||||||
|
;; TODO: Perhaps the CNAMEs even need to be in topologically-sorted order?
|
||||||
(define (rr-set->list rrs)
|
(define (rr-set->list rrs)
|
||||||
(append (set->list (filter-by-type rrs 'cname))
|
(append (set->list (filter-by-type rrs 'cname))
|
||||||
(set->list (set-filter (lambda (rr) (not (eqv? (rr-type rr) 'cname))) rrs))))
|
(set->list (set-filter (lambda (rr) (not (eqv? (rr-type rr) 'cname))) rrs))))
|
||||||
|
|
Loading…
Reference in New Issue