From 7153c04c709d27f8e1c113b59cfad38084851bcf Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 23 Dec 2013 13:51:45 +0900 Subject: [PATCH] Simplifying mime-message->sxml by relying on defaults. --- lib/chibi/mime.scm | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lib/chibi/mime.scm b/lib/chibi/mime.scm index ab3b7919..8d112935 100644 --- a/lib/chibi/mime.scm +++ b/lib/chibi/mime.scm @@ -330,7 +330,7 @@ (lambda (x) (next (kons parent-headers headers x seed))) (lambda (x) (final (kons parent-headers headers x seed))))))))))) -;;> \subsubsubsection{\scheme{(mime-message->sxml [src])}} +;;> \subsubsubsection{\scheme{(mime-message->sxml [src [headers]])}} ;;> ;;> Parse the given source as a MIME message and return ;;> the result as an SXML object of the form: @@ -346,10 +346,4 @@ (if (and (equal? body "") (null? headers)) seed `((mime (@ ,@headers) ,body) ,@seed))) - '() - (lambda (headers seed) '()) - (lambda (headers parent-seed seed) - `((mime (@ ,@headers) - ,@(if (pair? seed) (reverse seed) seed)) - ,@parent-seed)) - (if (pair? o) (cdr o) '())))) + '() #f #f (if (pair? o) (cdr o) '()))))