From f14f1018fb9d94d4bff48e1475978b0a9deec0d1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 11 Feb 2011 16:26:54 +0000
Subject: 	* interp/g-opt.boot ($VMsideEffectFreeOperators): Include
 %funcall 	and %nothing. 	* algebra/mkfunc.spad.pamphlet: Use %funcall
 instead of FUNCALL.

---
 src/interp/g-opt.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/g-opt.boot')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 6d4b3e41..797b50d8 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -404,7 +404,7 @@ optSuchthat [.,:u] == ["SUCHTHAT",:u]
 ++ List of VM side effect free operators.
 $VMsideEffectFreeOperators ==
   '(SPADfirst ASH IDENTP FLOAT_-RADIX FLOAT FLOAT_-SIGN
-    %when %false %true %otherwise %2bit %2bool
+    %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
     %ilength %ibit %icst0 %icst1
-- 
cgit v1.2.3