Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplifying mime-message->sxml by relying on defaults.

Browse source
This commit is contained in:
Alex Shinn 2013-12-23 13:51:45 +09:00
parent e0db95d3de
commit 7153c04c70
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/mime.scm
View file

@ -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) '()))))