Op_Tame procedure returns 0 in one case, should return boolean true.

[agryman]

See:

acm16/versions/version-1.4/src/maple/acm1.4.mpl

Line 3400 in 10920ca

Op_Tame:=proc(WOp::list(list))

Op_Tame:=proc(WOp::list(list))
    local parity,first,i,t,Wterm:

    if nops(WOp)=0 then return 0 fi:

    for i to nops(WOp) do
      Wterm:=WOp[i][2]:
      parity:=0:
      for t in Wterm do
        if t in [ Xspace_Pi, Xspace_PiPi2, Xspace_PiPi4 ] then
          return false:
        fi:
      od:
    od:

    true:
end:

The incorrect line is:

    if nops(WOp)=0 then return 0 fi:

The correction is:

    if nops(WOp)=0 then return true fi: