From 25639e8fa507850c2b74f18bacd26c3592011276 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Apr 2008 16:46:43 +0000
Subject: [PATCH] xml docs

svn: r9321

original commit: 9ca65af282fd8c3406a667b48555f2d34f810005
---
 collects/net/scribblings/head.scrbl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/net/scribblings/head.scrbl b/collects/net/scribblings/head.scrbl
index 4b186161c7..28a6b258a6 100644
--- a/collects/net/scribblings/head.scrbl
+++ b/collects/net/scribblings/head.scrbl
@@ -199,8 +199,12 @@ should be returned:
        (extract-addresses "John Doe <doe@localhost>" 'all)
        (extract-addresses "doe@localhost (Johnny Doe)" 'all)
        (extract-addresses "doe@localhost" 'all)
-       (extract-addresses " \"Doe, John\" <doe@localhost>, jane"
-                          'all)
+       (define r
+         (extract-addresses " \"John\" <doe@localhost>, jane"
+                            'all))
+       (length r)
+       (car r)
+       (cadr r)
        ]}
 
 ]}