From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Feb 1992 21:51:36 +0000 (+0000)
Subject: Rename editor input procedures:
X-Git-Tag: 20090517-FFI~9752
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4e6932c1f81b6c3062ff19f79faa2b435a14fb63;p=mit-scheme.git

Rename editor input procedures:

    old name		new name
    ------------------	-------------------
    EDITOR-CHAR-READY?	EDITOR-PEEK-NO-HANG
    EDITOR-PEEK-CHAR	EDITOR-PEEK
    EDITOR-READ-CHAR	EDITOR-READ
---

diff --git a/v7/src/edwin/edtstr.scm b/v7/src/edwin/edtstr.scm
index b85a75cdc..9ef7d4710 100644
--- a/v7/src/edwin/edtstr.scm
+++ b/v7/src/edwin/edtstr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edtstr.scm,v 1.19 1992/02/04 04:02:41 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edtstr.scm,v 1.20 1992/02/13 21:51:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -54,9 +54,9 @@
   (bufferset false read-only true)
   (char-history false read-only true)
   (halt-update? false read-only true)
-  (char-ready? false read-only true)
-  (peek-char false read-only true)
-  (read-char false read-only true)
+  (peek-no-hang false read-only true)
+  (peek false read-only true)
+  (read false read-only true)
   (button-event false)
   (select-time 1))
 
@@ -70,7 +70,7 @@
       (initialize-screen-root-window! screen bufferset initial-buffer)
       (with-values
 	  (lambda () (display-type/get-input-operations display-type screen))
-	(lambda (halt-update? char-ready? peek-char read-char)
+	(lambda (halt-update? peek-no-hang peek read)
 	  (%make-editor name
 			display-type
 			(list screen)