aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/c-util.boot2
1 files changed, 1 insertions, 1 deletions
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