Changeset 19497 in project

Timestamp:

08/18/10 01:33:06 (10 years ago)

Author:

azul

Message:

Fix bug introduced in 13255

File:

• release/3/content-type/trunk/content-type.scm (modified) (1 diff)

release/3/content-type/trunk/content-type.scm

@@ -40 +40 @@
 
 (define content-type-make
-  (let* ((rxstr (format #f (cond (irregex-feature? "^(Content-type:)?\\s*(~A)\\s*/\\s*(~A)~A")
-                                 (pcre-feature?    "\\s*(~A)\\s*/\\s*(~A)~A"))
-                        type type pars))
-         (expr  (regexp rxstr #t)))
+  (let ((expr (regexp (format #f "^(\\s*Content-type:)?\\s*(~A)\\s*/\\s*(~A)~A" type type pars))))
     (lambda (line)
       (and-let* ((match (string-match expr line)))
         (call-with-current-continuation
           (lambda (cont)
-            (let ((match1 (cddr match)))
-              (make-content-type (format #f "~(~A~)" (car match1)) (format #f "~(~A~)" (cadr match1))
-                                 (make-content-type-params cont (caddr match1))))))))))
+            (let ((match (cddr match)))
+              (make-content-type (format #f "~(~A~)" (car match)) (format #f "~(~A~)" (cadr match))
+                                 (make-content-type-params cont (caddr match))))))))))
 
 (define make-content-type-params