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