Correct contract documentation

This commit is contained in:
Tony Garnock-Jones 2012-04-04 17:06:18 -04:00
parent f86c372baa
commit 18facb4c9e
1 changed files with 1 additions and 1 deletions

View File

@ -168,7 +168,7 @@
(define (filter-by-type rrset type)
(set-filter (lambda (rr) (eqv? (rr-type rr) type)) rrset))
;; filter-rrs : SetOf<RR> QueryType QueryClass
;; filter-rrs : SetOf<RR> QueryType QueryClass -> SetOf<RR>
;; Returns a set like its argument with RRs not matching the given
;; type and class removed.
(define (filter-rrs rrs qtype qclass)