From 374ead024222e4fcd8aa2181c8a7579ceafb43b2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Sep 1993 18:45:38 +0000
Subject: [PATCH] Eliminate "unused binding" warning.

---
 v7/src/edwin/intmod.scm | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 5b09c48fe..17b95558d 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.63 1993/08/12 08:27:34 cph Exp $
+;;;	$Id: intmod.scm,v 1.64 1993/09/02 18:45:38 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -766,18 +766,20 @@ If this is an error, the debugger examines the error condition."
 (define read-expression
   (let ((empty (cons '() '())))
     (lambda (port level)
-      (let ((queue (port/expression-queue port)))
-	(let ((mode (ref-mode-object inferior-repl))
-	      (ready? (lambda (port) (not (queue-empty? queue)))))
-	  (let loop ()
-	    (let ((element (dequeue! queue empty)))
-	      (if (eq? element empty)
-		  (begin
-		    (wait-for-input port level mode ready?)
-		    (loop))
-		  (begin
-		    (set-port/current-queue-element! port element)
-		    (car element))))))))))
+      (let ((queue (port/expression-queue port))
+	    (mode (ref-mode-object inferior-repl))
+	    (ready?
+	     (lambda (port)
+	       (not (queue-empty? (port/expression-queue port))))))
+	(let loop ()
+	  (let ((element (dequeue! queue empty)))
+	    (if (eq? element empty)
+		(begin
+		  (wait-for-input port level mode ready?)
+		  (loop))
+		(begin
+		  (set-port/current-queue-element! port element)
+		  (car element)))))))))
 
 (define (operation/current-expression-context port expression)
   (let ((element (port/current-queue-element port)))
-- 
2.25.1