From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Jul 2000 03:37:27 +0000 (+0000)
Subject: Seriously simplify READ-LITERAL-TO-PORT by eliminating extra layer of
X-Git-Tag: 20090517-FFI~3398
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5ad528f30ebe23682ea7b3c8fbf5be689b60db0f;p=mit-scheme.git

Seriously simplify READ-LITERAL-TO-PORT by eliminating extra layer of
buffering.
---

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 39f31da99..5781e9786 100644
--- a/v7/src/imail/imap-response.scm
+++ b/v7/src/imail/imap-response.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-response.scm,v 1.40 2000/07/03 03:36:50 cph Exp $
+;;; $Id: imap-response.scm,v 1.41 2000/07/03 03:37:27 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -307,12 +307,12 @@
       (read-literal-to-port input output))))
 
 (define (read-literal-to-port input output)
-  (discard-known-char #\{ port)
-  (let ((n (read-number port))
+  (discard-known-char #\{ input)
+  (let ((n (read-number input))
 	(progress-hook *read-literal-progress-hook*))
-    (discard-known-char #\} port)
-    (discard-known-char #\return port)
-    (discard-known-char #\linefeed port)
+    (discard-known-char #\} input)
+    (discard-known-char #\return input)
+    (discard-known-char #\linefeed input)
     (let loop ((i 0))
       (if (fix:< i n)
 	  (let ((i (fix:+ i 1))