75a73bb024
* gnu/packages/algebra.scm (symmetrica): New variable. * gnu/packages/patches/symmetrica-bruch.patch: * gnu/packages/patches/symmetrica-int32.patch: * gnu/packages/patches/symmetrica-return_values.patch: * gnu/packages/patches/symmetrica-sort_sum_rename.patch: New files. * gnu/local.mk (dist_patch_DATA): Add patches.
15 lines
404 B
Diff
15 lines
404 B
Diff
diff -ru src/part.c b/part.c
|
|
--- src/part.c Thu May 14 06:01:00 2009 -0400
|
|
+++ b/part.c Thu May 14 06:01:00 2009 -0400
|
|
@@ -1767,8 +1767,8 @@
|
|
/* to compute number of partitions */
|
|
{
|
|
INT erg = OK;
|
|
- if (ni<0) return;
|
|
- if (not EMPTYP(S_V_I(vec,ni))) return;
|
|
+ if (ni<0) return 0;
|
|
+ if (not EMPTYP(S_V_I(vec,ni))) return 0;
|
|
else if (ni<=1) M_I_I(1,S_V_I(vec,ni));
|
|
else {
|
|
|