Function: poldisc
Section: polynomials
C-Name: poldisc0
Prototype: GDn
Help: poldisc(x,{v}): discriminant of the polynomial x, with respect to main
 variable if v is omitted, with respect to v otherwise
Description: 
 (pol):gen	discsr($1)
 (gen):gen	poldisc0($1, -1)
 (gen, var):gen	poldisc0($1, $2)

