From abdad20007a0da4d3a71e873cb06ca5e2da9fc1c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 18 Apr 1987 00:15:53 +0000 Subject: [PATCH] `goto-command', when selecting a subproblem with no reductions, tried to set the reduction number to 1, rather than 0. This previously "worked" because (list-ref '() 1) ==> '() instead of signalling an error as it now does. --- v7/src/runtime/debug.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm index b7703a711..5ad70542b 100644 --- a/v7/src/runtime/debug.scm +++ b/v7/src/runtime/debug.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 13.42 1987/03/17 18:49:00 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 13.43 1987/04/18 00:15:53 cph Rel $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -351,7 +351,7 @@ (cond ((> current-number-of-reductions 1) (get-reduction-number)) ((= current-number-of-reductions 1) (format "~%There is only one reduction for this subproblem") - (set-current-reduction! 1)) + (set-current-reduction! 0)) (else (format "~%There are no reductions for this subproblem.")))) (define (get-subproblem-number) -- 2.25.1