Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17: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) (next (kons parent-headers headers x seed)))
(lambda (x) (final (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 ;;> Parse the given source as a MIME message and return
;;> the result as an SXML object of the form: ;;> the result as an SXML object of the form:
@ -346,10 +346,4 @@
(if (and (equal? body "") (null? headers)) (if (and (equal? body "") (null? headers))
seed seed
`((mime (@ ,@headers) ,body) ,@seed))) `((mime (@ ,@headers) ,body) ,@seed)))
'() '() #f #f (if (pair? o) (cdr o) '()))))
(lambda (headers seed) '())
(lambda (headers parent-seed seed)
`((mime (@ ,@headers)
,@(if (pair? seed) (reverse seed) seed))
,@parent-seed))
(if (pair? o) (cdr o) '()))))