From a37a32c8edbe8a345e085c3c1026cde71c79b015 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Sep 1990 00:43:05 +0000 Subject: [PATCH] For the compiler's `COMBINATION-OPERAND' return type, index zero means the operator. --- v7/src/runtime/framex.scm | 8 +++++--- v8/src/runtime/framex.scm | 8 +++++--- 2 files changed, 10 insertions(+), 6 deletions(-) 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)))) -- 2.25.1