Ticket #401: patch.txt

File patch.txt, 947 bytes (added by daishi, 11 years ago)

the patch is untested.

Line 
1Index: intarweb/trunk/header-parsers.scm
2===================================================================
3--- intarweb/trunk/header-parsers.scm   (revision 20558)
4+++ intarweb/trunk/header-parsers.scm   (working copy)
5@@ -445,9 +445,7 @@
6                                                  (password . ,pass))) result)))))
7               ((digest) (receive (params pos)
8                           (parse-parameters contents pos
9-                                            `((nc . ,(lambda (n)
10-                                                       (string->number n 16)))
11-                                              (uri . ,uri-reference)
12+                                            `((uri . ,uri-reference)
13                                               (qop . ,symbol-subparser)
14                                               (algorithm . ,symbol-subparser-ci))
15                                             (char-set #\,))