From 86ad18b8ca340cad57e43bd3aee033eff4d87ad6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 1989 23:24:49 +0000
Subject: [PATCH] In `repeat-complex-command', range check the argument
 correctly.

---
 v7/src/edwin/prompt.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 4c856ccdf..a98d65a0b 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.132 1989/04/20 08:16:22 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.133 1989/04/23 23:24:49 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -631,7 +631,8 @@ Whilst editing the command, the following commands are available:
   (lambda (argument)
     (fluid-let ((*command-history* (command-history-list))
 		(*command-history-index* argument))
-      (if (not (< 0 argument (length *command-history*)))
+      (if (or (<= argument 0)
+	      (> argument (length *command-history*)))
 	  (editor-error "argument out of range: " argument))
       (execute-command-history-entry
        (read-from-string
-- 
2.25.1