From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 1989 23:24:49 +0000 (+0000)
Subject: In `repeat-complex-command', range check the argument correctly.
X-Git-Tag: 20090517-FFI~12132
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=86ad18b8ca340cad57e43bd3aee033eff4d87ad6;p=mit-scheme.git

In `repeat-complex-command', range check the argument correctly.
---

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