From e335aaca1a6b51046e58ce918366067c3bd9f59a Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 24 Jul 1995 14:32:57 +0000 Subject: [PATCH] Added CALL/OPERAND1 .. CALL/OPERAND3 --- v8/src/compiler/midend/fakeprim.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm index 152ac72f3..608e3045d 100644 --- a/v8/src/compiler/midend/fakeprim.scm +++ b/v8/src/compiler/midend/fakeprim.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: fakeprim.scm,v 1.17 1995/06/22 15:09:29 adams Exp $ +$Id: fakeprim.scm,v 1.18 1995/07/24 14:32:57 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -1123,3 +1123,7 @@ MIT in each case. |# (kmp-form THE-ENVIRONMENT) (kmp-form IN-PACKAGE env-expr expr) ) + +(define-integrable (call/operand1 form) (first (call/operands form))) +(define-integrable (call/operand2 form) (second (call/operands form))) +(define-integrable (call/operand3 form) (third (call/operands form))) \ No newline at end of file -- 2.25.1