Fix bug in method/combination-save-value. The wrong (or non-existent)

subexpression of a combination was being extracted as the relevant
subproblem.

diff --git a/v7/src/runtime/framex.scm b/v7/src/runtime/framex.scm
index e1968991fed9915d76a3e7abac83181fa92e4815..3dcef5b9be91c12657b9df43e03539bdc3ca2fb6 100644 (file)
--- 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 f3c7a671f4fd16f5b30b31745b01c2da147c12f1..765d0657b55405e09436c641749cdc6d0bfd4ecf 100644 (file)
--- 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)