From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Sep 1990 00:43:05 +0000 (+0000)
Subject: For the compiler's `COMBINATION-OPERAND' return type, index zero means
X-Git-Tag: 20090517-FFI~11200
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a37a32c8edbe8a345e085c3c1026cde71c79b015;p=mit-scheme.git

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 45bfd998b..7bf670597 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.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 68370c1fc..3f7a7ba53 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.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))))