-----maxima-bounces at math.utexas.edu wrote: -----
>To: "Barton Willis" <willisb at unk.edu>
>From: "Robert Dodier" <robert.dodier at gmail.com>
>Sent by: maxima-bounces at math.utexas.edu
>Date: 12/11/2007 01:11AM
>cc: Maxima at math.utexas.edu
>Subject: Re: [Maxima] is facsum broken in 5.13.99rc1?
>
>On 12/9/07, Barton Willis <willisb at unk.edu> wrote:
>
>> opmap(exp, lst) := block([op_fcn_list : lst, e_op, x, fun : 'false,
>inflag
>> : 'true],
>> if mapatom(exp) then exp
>> else (
>> 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])))$
>
>MSET refuses to assign a value to true or false,
>so the quotes 'true and 'false seem to be superfluous.
>
>> I think we need to fix facsum before a 5.14.0 release.
>
>OK by me.
I commit my fix to CVS (unless somebody finds a bug in my code), but
somebody else will need to move it to the release branch.
Barton