/* -*-c-*-
*
- * $Id: pgen.c,v 1.10 2004/04/08 01:36:15 mdw Exp $
+ * $Id$
*
* Prime generation glue
*
rabin r;
mp *x = MP_NEW;
- if (MP_ISNEG(p)) return (0);
+ if (MP_NEGP(p)) return (0);
switch (pfilt_smallfactor(p)) {
case PGEN_DONE: return (1);
case PGEN_FAIL: return (0);