From b871a60c64079666506afc0cf8c19d8206f85057 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 6 Feb 2012 14:17:38 -0500
Subject: [PATCH] Better contract

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

diff --git a/zonedb.rkt b/zonedb.rkt
index 8e1d929..6b3fa77 100644
--- a/zonedb.rkt
+++ b/zonedb.rkt
@@ -25,11 +25,11 @@
 ;; and subzone checks into prefix rather than suffix checks. It makes
 ;; domain names into paths through the DNS DB tree.
 
-;; RR Hash -> Hash
+;; RR CompiledZone -> CompiledZone
 (define (incorporate-rr rr db)
   (hash-set db (rr-name rr) (set-add (hash-ref db (rr-name rr) set) rr)))
 
-;; Maybe<CompleteAnswer> Hash -> Hash
+;; Maybe<CompleteAnswer> CompiledZone -> CompiledZone
 (define (incorporate-complete-answer ans db)
   (match ans
     [#f db]