From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Oct 1993 11:07:21 +0000 (+0000)
Subject: Fix typo in last change.
X-Git-Tag: 20090517-FFI~7739
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7dd0dc4e1668b14229637c1f56b09757a5260ec;p=mit-scheme.git

Fix typo in last change.
---

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)