original commit: eaf51fa829fef81bbe83449fca093aa19cd44799
This commit is contained in:
Matthew Flatt 2002-07-23 13:35:56 +00:00
parent da8c303b17
commit 78681540ec

View File

@ -46,7 +46,7 @@
(define qp-encode
(lambda (str)
(let ((out (open-output-string)))
(qp-encode-stream (open-input-string str) out)
(qp-encode-stream (open-input-string str) out "\r\n")
(get-output-string out))))
;; qp-decode : string -> string