aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-25 23:56:54 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-25 23:56:54 +0000
commit0ee1ea72c939e760c274f2eaff8afa73a629ae60 (patch)
tree05eb85f57186c9ab468b787c1f0b24120f92b938 /src/interp/c-util.boot
parentb71fd7a811c516e8ca2a8a3f4ad578e9f637596b (diff)
downloadopen-axiom-0ee1ea72c939e760c274f2eaff8afa73a629ae60.tar.gz
* algebra/fmod.spad.pamphlet (IntegerMod): Simplify implementation.
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 8312e4b1..4daea645 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -696,6 +696,7 @@ isSimple x ==
isSideEffectFree op ==
op is ["elt",.,op'] => isSideEffectFree op'
+ not IDENTP op => false
member(op,$SideEffectFreeFunctionList) or constructor? op
isAlmostSimple x ==