From 324131f82756f6e39b2dd5d8ff1cedceb4c68e4e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Sep 1990 02:29:32 +0000
Subject: [PATCH] Fix a number of instances of syntactic keywords being used as
 variables.

---
 v7/src/edwin/input.scm | 8 ++++----
 v7/src/edwin/xform.scm | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/input.scm b/v7/src/edwin/input.scm
index 10954dd48..d22a8e3a7 100644
--- a/v7/src/edwin/input.scm
+++ b/v7/src/edwin/input.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/input.scm,v 1.82 1990/08/31 20:12:44 markf Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/input.scm,v 1.83 1990/09/12 02:29:32 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -187,8 +187,8 @@ B 3BAB8C
 (define-integrable (set-editor-input-port! new-port)
   (set! editor-input-port new-port))
 
-(define-integrable (keyboard-active? delay)
-  (char-ready? editor-input-port delay))
+(define-integrable (keyboard-active? interval)
+  (char-ready? editor-input-port interval))
 
 (define (keyboard-peek-char)
   (if *executing-keyboard-macro?*
diff --git a/v7/src/edwin/xform.scm b/v7/src/edwin/xform.scm
index de1193ea2..c06b9df10 100644
--- a/v7/src/edwin/xform.scm
+++ b/v7/src/edwin/xform.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xform.scm,v 1.7 1990/09/12 02:23:23 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xform.scm,v 1.8 1990/09/12 02:25:47 cph Rel $
 ;;;
 ;;;	Copyright (c) 1985, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -146,8 +146,8 @@
     (lambda (text expression)
       (make-comment text (transform-expression transforms expression)))))
 
-(define (transform-delay transforms delay)
-  (make-delay (transform-expression transforms (delay-expression delay))))
+(define (transform-delay transforms expression)
+  (make-delay (transform-expression transforms (delay-expression expression))))
 
 (define scode-walker
   (make-scode-walker transform-constant
-- 
2.25.1