From d7dd0dc4e1668b14229637c1f56b09757a5260ec Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Oct 1993 11:07:21 +0000
Subject: [PATCH] Fix typo in last change.

---
 v7/src/edwin/intmod.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 13744b79e..c454bf25f 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.70 1993/10/16 10:11:21 cph Exp $
+;;;	$Id: intmod.scm,v 1.71 1993/10/16 11:07:21 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -306,7 +306,7 @@ REPL uses current evaluation environment."
 		(write-string
 		 ";Type D to debug error, Q to quit back to REP loop: "
 		 port)
-		(let ((char (read-command-char port (cmdl/level rep))))
+		(let ((char (read-command-char port (cmdl/level repl))))
 		  (write-char char port)
 		  (cond ((char-ci=? char #\d)
 			 (fresh-line port)
-- 
2.25.1