From b9a2761e81fe5eb0ee5b4215c94c4d078a36950d Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 14 Jun 1991 03:02:57 +0000 Subject: [PATCH] Fix bug in method/combination-save-value. The wrong (or non-existent) subexpression of a combination was being extracted as the relevant subproblem. --- v7/src/runtime/framex.scm | 4 ++-- v8/src/runtime/framex.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/framex.scm b/v7/src/runtime/framex.scm index e1968991f..3dcef5b9b 100644 --- a/v7/src/runtime/framex.scm +++ b/v7/src/runtime/framex.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.14 1990/10/03 21:52:58 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.15 1991/06/14 03:02:57 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -135,7 +135,7 @@ MIT in each case. |# (stack-frame/ref frame 2) (validate-subexpression frame - (&vector-ref expression (1+ (stack-frame/ref frame 3))))))) + (&vector-ref expression (stack-frame/ref frame 3)))))) (define (method/eval-error frame) (values (stack-frame/ref frame 1) diff --git a/v8/src/runtime/framex.scm b/v8/src/runtime/framex.scm index f3c7a671f..765d0657b 100644 --- a/v8/src/runtime/framex.scm +++ b/v8/src/runtime/framex.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.14 1990/10/03 21:52:58 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.15 1991/06/14 03:02:57 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -135,7 +135,7 @@ MIT in each case. |# (stack-frame/ref frame 2) (validate-subexpression frame - (&vector-ref expression (1+ (stack-frame/ref frame 3))))))) + (&vector-ref expression (stack-frame/ref frame 3)))))) (define (method/eval-error frame) (values (stack-frame/ref frame 1) -- 2.25.1