Changeset 11693 in project


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

Clean up the code for make-updater a little

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/intarweb.scm

    r11692 r11693  
    103103
    104104(define (make-headers headers-to-be #!optional (old-headers '()))
    105   (let loop ((h headers-to-be)
    106              (new-headers old-headers))
    107     (if (null? h)
    108         new-headers
    109         (loop (cdr h)
    110               (update-header-contents (caar h)
    111                                       (map (lambda (v)
    112                                              (make-value+params v '()))
    113                                            (cdar h))
    114                                       new-headers)))))
     105  (fold (lambda (h new-headers)
     106          (update-header-contents
     107           (car h)
     108           (map (lambda (v)
     109                  (if (vector? v)
     110                      (make-value+params (vector-ref v 0) (vector-ref v 1))
     111                      (make-value+params v '())))
     112                (cdr h))
     113           new-headers))
     114        old-headers
     115        headers-to-be))
    115116
    116117(include "../header-parsers")
Note: See TracChangeset for help on using the changeset viewer.