diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-24 19:05:03 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 19:05:03 +0000 |
commit | 35e4595e5312af1ad327ae7fda4eefa0d60d31c6 (patch) | |
tree | 58d1d2f98069757639558871341001e6c5b76575 /src/interp/c-util.boot | |
parent | 1f68c8c90efaf97535bfc1bfc99cad368213870e (diff) | |
download | open-axiom-35e4595e5312af1ad327ae7fda4eefa0d60d31c6.tar.gz |
Fix isSimple, again
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 2 |
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 |