For the compiler's `COMBINATION-OPERAND' return type, index zero means

the operator.

diff --git a/v7/src/runtime/framex.scm b/v7/src/runtime/framex.scm
index 45bfd998bb2d23d23d4fca33d4b09aea2958b22c..7bf67059700b655ab07fa412eefbc8f109fee4bf 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.12 1990/09/11 20:44:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.13 1990/09/12 00:43:05 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -249,8 +249,10 @@ MIT in each case. |#
                           environment
                           (validate-subexpression
                            frame
-                           (list-ref (combination-operands expression)
-                                     (-1+ (vector-ref source-code 2))))))
+                           (if (zero? (vector-ref source-code 2))
+                               (combination-operator expression)
+                               (list-ref (combination-operands expression)
+                                         (-1+ (vector-ref source-code 2)))))))
                         (else
                          (lose)))))
                   (lose))))

diff --git a/v8/src/runtime/framex.scm b/v8/src/runtime/framex.scm
index 68370c1fcdfd175719a0fd8f33e1f99b45726ede..3f7a7ba534ca1d0dbc31fbec1029d9852d98a613 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.12 1990/09/11 20:44:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.13 1990/09/12 00:43:05 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -249,8 +249,10 @@ MIT in each case. |#
                           environment
                           (validate-subexpression
                            frame
-                           (list-ref (combination-operands expression)
-                                     (-1+ (vector-ref source-code 2))))))
+                           (if (zero? (vector-ref source-code 2))
+                               (combination-operator expression)
+                               (list-ref (combination-operands expression)
+                                         (-1+ (vector-ref source-code 2)))))))
                         (else
                          (lose)))))
                   (lose))))