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

(Noticed by bernauer.)
2003-01-24 09:51:17 +00:00 · 2003-01-24 09:51:17 +00:00 · 9893716650
parent 5f4c1b510b
commit 9893716650
1 changed files with 1 additions and 1 deletions
--- a/scheme/lib/rfc822.scm
+++ b/scheme/lib/rfc822.scm
@ -99,7 +99,7 @@
 			 (read-line read-crlf-line))
      (let lp ((alist '()))
 	(receive (field val)
-	    (read-rfc822-field port read-line)
+	    (read-field port read-line)
 	  (if field
 	      (lp (cons (cons field val) alist))
 	      (reverse alist)))))))