From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 12 Mar 1987 02:20:33 +0000 (+0000)
Subject: Rename read-char-ready? to char-ready? as required by R^3RS.
X-Git-Tag: 20090517-FFI~13676
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c9ffb3df1bdd45915ec9032fee531c51918c2f1;p=mit-scheme.git

Rename read-char-ready? to char-ready? as required by R^3RS.
---

diff --git a/v7/src/runtime/input.scm b/v7/src/runtime/input.scm
index 5927db66e..9e8211cba 100644
--- a/v7/src/runtime/input.scm
+++ b/v7/src/runtime/input.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.41 1987/01/23 00:14:34 jinx Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.42 1987/03/12 02:20:33 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -429,7 +429,7 @@
 ;;; **** The DELAY option for this operation works only for the
 ;;; console port.  Since it is a kludge, it is probably OK.
 
-(define (read-char-ready? #!optional port delay)
+(define (char-ready? #!optional port delay)
   (cond ((unassigned? port) (set! port *current-input-port*))
 	((not (input-port? port)) (error "Bad input port" port)))
   (cond ((unassigned? delay) (set! delay 0))