From 62516b20278c0d6dfdfb3697cd72a3705f54f6a0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Jul 2008 10:36:17 +0000
Subject: [PATCH] Fix typo: ASCII -> US-ASCII.  Eliminate unused loop binding.

---
 v7/src/runtime/genio.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index 8e82b3ff8..11d82a155 100644
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.61 2008/02/02 04:28:44 cph Exp $
+$Id: genio.scm,v 1.62 2008/07/08 10:36:17 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -748,11 +748,10 @@ USA.
       'EOF
       (begin
 	(justify-input-buffer ib)
-	(let loop ()
-	  (let ((n (read-bytes ib)))
-	    (cond ((not n) 'WOULD-BLOCK)
-		  ((fix:> n 0) 'OK)
-		  (else 'EOF)))))))
+	(let ((n (read-bytes ib)))
+	  (cond ((not n) 'WOULD-BLOCK)
+		((fix:> n 0) 'OK)
+		(else 'EOF))))))
 
 (define (buffer-has-input? ib)
   (let ((bs (input-buffer-start ib)))
@@ -1081,7 +1080,7 @@ USA.
 (define-encoder-alias 'TEXT 'ISO-8859-1)
 (define-sizer-alias 'TEXT 'ISO-8859-1)
 (define-decoder-alias 'US-ASCII 'ISO-8859-1)
-(define-encoder-alias 'ASCII 'ISO-8859-1)
+(define-encoder-alias 'US-ASCII 'ISO-8859-1)
 (define-sizer-alias 'US-ASCII 'ISO-8859-1)
 
 (define-syntax define-8-bit-codecs
-- 
2.25.1