1 | Index: 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 #\,)) |
---|