Added CALL/OPERAND1 .. CALL/OPERAND3

diff --git a/v8/src/compiler/midend/fakeprim.scm b/v8/src/compiler/midend/fakeprim.scm
index 152ac72f30ec436a0eeb549c39bda595327d506a..608e3045df442e726c0a10f4279706cd970c50e5 100644 (file)
--- 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