scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Actually use READ-LINE parameter in MAKE-READ-RFC822-HEADERS. 

(Noticed by bernauer.)
This commit is contained in:
sperber 2003-01-24 09:51:17 +00:00
parent 5f4c1b510b
commit 9893716650
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/lib/rfc822.scm
View File

@ -99,7 +99,7 @@
(read-line read-crlf-line)) (read-line read-crlf-line))
(let lp ((alist '())) (let lp ((alist '()))
(receive (field val) (receive (field val)
(read-rfc822-field port read-line) (read-field port read-line)
(if field (if field
(lp (cons (cons field val) alist)) (lp (cons (cons field val) alist))
(reverse alist))))))) (reverse alist)))))))