mapatom safe op function



On 12/15/08, Barton Willis <willisb at unk.edu> wrote:

> Does Maxima  have a function that is equivalent to
>
>     safe_op(e) := block([inflag : true], if mapatom(e) then false else
>  op(e));
>
>  If not, I think we should --- if not mapatom(e) then op(e) is frequent and
>  tiresome.

Agreed. Let's just change op(e) to return false when e is an atom.
(Note that op(x[1]) => x at present, so safe_op as defined above is
not consistent with op.)

Robert