From 507f80f13241b81d794003f4f9117bc145fdfdf1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 22 Jun 2011 12:25:05 +0000
Subject: 	* interp/g-opt.boot ($VMsideEffectFreeOperators): Include
 FUNCALL. 	($simpleVMoperators): Include SPADCALL.

---
 src/interp/g-opt.boot | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 8a6c0d91..4346120d 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -399,7 +399,8 @@ optSuchthat [.,:u] == ["SUCHTHAT",:u]
  
 ++ List of VM side effect free operators.
 $VMsideEffectFreeOperators ==
-  '(SPADfirst ASH IDENTP FLOAT_-RADIX FLOAT FLOAT_-SIGN
+  '(FUNCALL
+    SPADfirst ASH IDENTP FLOAT_-RADIX FLOAT FLOAT_-SIGN
     %funcall %nothing %when %false %true %otherwise %2bit %2bool
     %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer?
     %beq %blt %ble %bgt %bge %bitand %bitior %bitxor %bitnot %bcompl
@@ -431,7 +432,7 @@ $VMsideEffectFreeOperators ==
 ++ List of simple VM operators
 $simpleVMoperators == 
   append($VMsideEffectFreeOperators,
-    ['STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse!,
+    ['SPADCALL,'STRINGIMAGE,'%gensym, '%lreverse!,
       '%strstc,"MAKE-FULL-CVEC"])
 
 ++ Return true if the `form' is semi-simple with respect to
-- 
cgit v1.2.3