From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Jul 2008 10:36:17 +0000 (+0000)
Subject: Fix typo: ASCII -> US-ASCII.  Eliminate unused loop binding.
X-Git-Tag: 20090517-FFI~281
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62516b20278c0d6dfdfb3697cd72a3705f54f6a0;p=mit-scheme.git

Fix typo: ASCII -> US-ASCII.  Eliminate unused loop binding.
---

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