add delete-headers to rfc822, that removes a header entry

This commit is contained in:
interp 2002-08-28 10:10:00 +00:00
parent 542fea9f55
commit c5c67ec837
2 changed files with 9 additions and 0 deletions

View File

@ -200,6 +200,14 @@
(string-join (cadr entry)
(:optional maybe-sep "\n")))))
(define (delete-headers headers name)
(fold (lambda (entry rest)
(if (eq? (car entry) name)
rest
(cons entry rest)))
'()
headers))
;;; Other desireable functionality

View File

@ -61,6 +61,7 @@
get-header-all
get-header-lines
get-header
delete-headers
))
(define-interface uri-interface