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