From 42280b8d9149cc339e97f485ae1a0b44402cbafe Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 19 Feb 2012 12:38:57 -0500
Subject: [PATCH] Comment re topological sorting

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

diff --git a/zonedb.rkt b/zonedb.rkt
index 16b92f6..0644a7b 100644
--- a/zonedb.rkt
+++ b/zonedb.rkt
@@ -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))))