aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-07-25 04:37:08 +0000
committerdos-reis <gdr@axiomatics.org>2010-07-25 04:37:08 +0000
commit32593f2cb2bd9c344b83edec738f81eee3128d34 (patch)
tree126f3fa36e8f127d16fce172fa1c01bfc3d38c63 /src/algebra
parent0df43e77732de95d97212f042ed922d2f7314bab (diff)
downloadopen-axiom-32593f2cb2bd9c344b83edec738f81eee3128d34.tar.gz
* interp/g-opt.boot (optIadd): More simplification if either
operand is zero. (optIsub): Likewise. (optImul): More simplifications if either operand is one.
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/strap/SYMBOL.lsp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp
index c2af9d6f..b1cb0a30 100644
--- a/src/algebra/strap/SYMBOL.lsp
+++ b/src/algebra/strap/SYMBOL.lsp
@@ -610,7 +610,7 @@
(DEFUN |SYMBOL;istring| (|n| $)
(COND
((< 9 |n|) (|error| "Can have at most 9 scripts of each kind"))
- (T (|getSimpleArrayEntry| (|getShellEntry| $ 18) (+ |n| 0)))))
+ (T (|getSimpleArrayEntry| (|getShellEntry| $ 18) |n|))))
(DEFUN |SYMBOL;list;$L;34| (|sy| $)
(COND