Changeset 12008 in project

Timestamp:

09/26/08 12:45:58 (13 years ago)

Author:

elf

Message:

error in resolution

File:

• release/3/dns/dns.scm (modified) (1 diff)

release/3/dns/dns.scm

@@ -300 +300 @@
                       (dnserr dns:ipv4->label "too many octets - " addr)
                       (string-append (apply conc ret) zone)))
+              ((not (string->number (cdar adl)))
+                  (dnserr dns:ipv4->label
+                          "invalid ipv4 segment - " (cdar adl)))
               ((<= 1 (caar adl) 3)
                   (loop (cdr adl) (+ 1 len)