suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 471b1ea0a9e79703c1dd44855caca6bfde30df50
This commit is contained in:
Matthew Flatt 2002-02-14 17:49:10 +00:00
parent abda63b0ac
commit 911c5eb4ef
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/net/mime-unit.ss
View File

@ -1,6 +1,7 @@
;;;
;;; <mime-unit.ss> ---- MIME support
;;;
;;; Copyright (C) 2002 by PLT.
;;; Copyright (C) 2001 by Wish Computing.
;;;
;;; This file is part of mime
@ -273,10 +274,10 @@
#f;; close-delimiter?
#t;; eof reached?
))
((regexp-match re:done ln)
((regexp-match-positions re:done ln)
(close-output-port pout)
(values pin #t #f))
((regexp-match re:sep ln)
((regexp-match-positions re:sep ln)
(close-output-port pout)
(values pin #f #f))
(else
@ -286,7 +287,7 @@
(let loop ()
(let-values ([(part close? eof?) (eat-part)])
(cond (close? (list part))
(eof? null)
(eof? (list part))
(else
(cons part (loop))))))))))

2
collects/net/qp-unit.ss
View File

@ -1,7 +1,7 @@
;;;
;;; <qp-unit.ss> ---- Quoted Printable Implementation
;;; Time-stamp: <01/04/23 09:28:43 solsona>
;;;
;;; Copyright (C) 2002 by PLT.
;;; Copyright (C) 2001 by Francisco Solsona.
;;;
;;; This file is part of mime-plt.