syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Comment re topological sorting

This commit is contained in:
Tony Garnock-Jones 2012-02-19 12:38:57 -05:00
parent 1d9e06eee5
commit 42280b8d91
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
zonedb.rkt
View File

@ -179,6 +179,7 @@
;; rr-set->list : SetOf<RR> -> ListOf<RR>
;; Like set->list, but places all CNAME records first.
;; 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)
(append (set->list (filter-by-type rrs 'cname))
(set->list (set-filter (lambda (rr) (not (eqv? (rr-type rr) 'cname))) rrs))))