Changeset 19497 in project


Ignore:
Timestamp:
08/18/10 01:33:06 (11 years ago)
Author:
azul
Message:

Fix bug introduced in 13255

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/content-type/trunk/content-type.scm

    r13256 r19497  
    4040
    4141(define content-type-make
    42   (let* ((rxstr (format #f (cond (irregex-feature? "^(Content-type:)?\\s*(~A)\\s*/\\s*(~A)~A")
    43                                  (pcre-feature?    "\\s*(~A)\\s*/\\s*(~A)~A"))
    44                         type type pars))
    45          (expr  (regexp rxstr #t)))
     42  (let ((expr (regexp (format #f "^(\\s*Content-type:)?\\s*(~A)\\s*/\\s*(~A)~A" type type pars))))
    4643    (lambda (line)
    4744      (and-let* ((match (string-match expr line)))
    4845        (call-with-current-continuation
    4946          (lambda (cont)
    50             (let ((match1 (cddr match)))
    51               (make-content-type (format #f "~(~A~)" (car match1)) (format #f "~(~A~)" (cadr match1))
    52                                  (make-content-type-params cont (caddr match1))))))))))
     47            (let ((match (cddr match)))
     48              (make-content-type (format #f "~(~A~)" (car match)) (format #f "~(~A~)" (cadr match))
     49                                 (make-content-type-params cont (caddr match))))))))))
    5350
    5451(define make-content-type-params
Note: See TracChangeset for help on using the changeset viewer.