xml docs

svn: r9321 original commit: 9ca65af282
2008-04-15 16:46:43 +00:00 · 2008-04-15 16:46:43 +00:00 · 25639e8fa5
commit 25639e8fa5
parent 5117b92673
1 changed files with 6 additions and 2 deletions
--- 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)
       ]}

 ]}