Fix a number of instances of syntactic keywords being used as

variables.

diff --git a/v7/src/edwin/input.scm b/v7/src/edwin/input.scm
index 10954dd484f70fd0d3b6d5cbe94e133573264e3f..d22a8e3a709d3b3c4e6ea6706e38c6ef830f0ad8 100644 (file)
--- 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 de1193ea262f1bac04ad065db0609eb71ab16e4a..c06b9df10dd0e981726334a00e732e9dc221e6b2 100644 (file)
--- 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