From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 24 Jul 1995 14:32:57 +0000 (+0000)
Subject: Added CALL/OPERAND1 .. CALL/OPERAND3
X-Git-Tag: 20090517-FFI~6163
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e335aaca1a6b51046e58ce918366067c3bd9f59a;p=mit-scheme.git

Added CALL/OPERAND1 .. CALL/OPERAND3
---

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