[Maxima] is facsum broken in 5.13.99rc1?
willisb at unk.edu
Sun Dec 9 06:29:05 CST 2007
I think the facsum bug is due to a broken opmap function (defined in
/share/simplification/genut.mac). The change from symbol to string
operators causes a problem for way opmap uses (or abuses) ?getf.
/* LST is an alternating list of operators and associated functions.
OP_FCN_LIST is used to pass LST to recursive calls to OPMAP. */
opmap(exp, lst) := block([op_fcn_list : lst, e_op, x, fun : 'false, inflag
if mapatom(exp) then exp
e_op : op(exp),
while lst # [ ] do (
x : first(lst),
lst : rest(lst),
if x = e_op and lst # [ ] then (
fun : first(lst),
lst : [ ])),
if fun = 'false then exp else apply(fun, [exp])))$
Additionally, I changed atom to mapatom. I think this change is better for
like facsum(x, x).
I think we need to fix facsum before a 5.14.0 release.
More information about the Maxima