From 35e4595e5312af1ad327ae7fda4eefa0d60d31c6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 24 Feb 2011 19:05:03 +0000
Subject: Fix isSimple, again

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

(limited to 'src/interp')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 0034fce3..f5cd44b4 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -696,7 +696,7 @@ isSimple x ==
  
 isSideEffectFree op ==
   op is ["elt",.,op'] => isSideEffectFree op'
-  member(op,$SideEffectFreeFunctionList)
+  member(op,$SideEffectFreeFunctionList) or constructor? op
  
 isAlmostSimple x ==
   --returns (<new predicate> . <list of assignments>) or nil
-- 
cgit v1.2.3