Changeset 11569 in project


Ignore:
Timestamp:
08/08/08 22:03:27 (13 years ago)
Author:
sjamaan
Message:

Minor tweaks

Location:
release/4/intarweb/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r11568 r11569  
    192192      `(strong . ,contents)))
    193193
     194;;;; MAJOR TODOs
    194195;; RFC822/1123 mailbox parser - just strings for now
    195196(define mailbox-parser identity)
     
    209210;; Tricky - see 2616 14.46
    210211(define warning-parser identity)
     212;;;; END MAJOR TODOs
    211213
    212214(define (key/value-parser str)
     
    242244                   (private . ,splitter)
    243245                   (no-cache . ,splitter))))))
    244 
    245 ;; Join this with cache-control
    246 (define (expect-parser name value headers)
    247   (set-header-contents! name (read-parameters value 0 `()) headers))
    248246
    249247;; This too
  • release/4/intarweb/trunk/intarweb.scm

    r11568 r11569  
    9191     (cache-control . ,cache-control-parser)
    9292     (connection . ,(multiple symbol-parser-ci))
    93      (content-encoding . ,(multiple symbol-parser-ci `((q . ,quality-parser))))
     93     (content-encoding . ,(multiple symbol-parser-ci))
    9494     (content-language . ,(multiple symbol-parser-ci))
    9595     (content-length . ,(single natnum-parser))
     
    100100     (date . ,(single http-time-parser))
    101101     (etag . ,(single entity-tag-parser))
    102      (expect . ,(single expect-parser))
     102     (expect . ,(single key/values))
    103103     (expires . ,(single rfc822-time-parser))
    104104     (from . ,(multiple mailbox-parser))
Note: See TracChangeset for help on using the changeset viewer.