/* -*-c-*-
*
- * $Id: mp-jacobi.c,v 1.1 1999/11/22 20:50:37 mdw Exp $
+ * $Id: mp-jacobi.c,v 1.2 1999/12/10 23:19:02 mdw Exp $
*
* Compute Jacobi symbol
*
/*----- Revision history --------------------------------------------------*
*
* $Log: mp-jacobi.c,v $
+ * Revision 1.2 1999/12/10 23:19:02 mdw
+ * Improve error-checking.
+ *
* Revision 1.1 1999/11/22 20:50:37 mdw
* Add support for computing Jacobi symbols.
*
mp_drop(a);
mp_drop(n);
+ assert(mparena_count(MPARENA_GLOBAL) == 0);
return (ok);
}