redundant line

[Ralf Hemmecke]

There is a redundant line in the code, or is this doing something?

pol_root(p : P, op : OP, n : N) : F ==
cp : R := content(p)$P
cp::F <--------------
pp := (p exquo cp::P)::P
fp_root(factor(pp)$MPfact, op, n)
*fp_root(map(x +-> x::P, factor(cp)
)$FactoredFunctions2(R, P), op, n)

https://github.com/fricas/fricas/blob/master/src/algebra/manip.spad#L357

Ralf

[Waldek Hebisch]

I do not remember any special significance of this line, so
probably I just forgot to delete it.

--
Waldek Hebisch