From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 19 Aug 2011 15:41:21 +0000 (-0700)
Subject: Fixed a last-minute copy/yank.
X-Git-Tag: release-9.2.0~347^2~2^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7a6e0eb4f62c4bd109f46c1ee23b4e48373423a;p=mit-scheme.git

Fixed a last-minute copy/yank.
---

diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 9886d9cdb..4ab8ec68b 100644
--- a/src/runtime/usrint.scm
+++ b/src/runtime/usrint.scm
@@ -255,7 +255,7 @@ USA.
 		    (char=? char #\return)
 		    (char=? char #\linefeed))
 		(receiver input)
-		(set-string-length! str (string-maximum-length str))
+		(set-string-length! input (string-maximum-length input))
 		(string-fill! input #\delete)
 		(port/with-output-terminal-mode port 'COOKED
 		  (lambda ()