Changeset 11986 in project for release/4/intarweb/trunk/intarweb.scm


Ignore:
Timestamp:
09/23/08 23:25:35 (13 years ago)
Author:
sjamaan
Message:

Fix silly mistake in replace-header-contents

File:
1 edited

Legend:

Unmodified
Added
Removed

  • release/4/intarweb/trunk/intarweb.scm

    r11983 r11986  
    102102   (let loop ((h (headers-v headers)))
    103103     (cond
    104       ((null? h) (cons (cons name contents) (headers-v headers)))
     104      ((null? h) (cons (cons name contents) h))
    105105      ((eq? name (caar h))
    106106       (cons (cons (caar h) contents) (cdr h)))
Note: See TracChangeset for help on using the changeset viewer.