--- src/bar.c.orig 2020-02-12 11:59:07.644172777 -0700
+++ src/bar.c 2020-02-12 14:21:29.546276748 -0700
@@ -24,7 +24,7 @@ INT cast_apply_barperm(a) OP a;
}
default:
printobjectkind(a);
- erg += WTO("cast_apply_barperm",a);
+ WTO("cast_apply_barperm",a);
break;
}
ENDR("cast_apply_barperm");
--- src/bruch.c.orig 2020-01-08 11:42:51.000000000 -0700
+++ src/bruch.c 2020-02-12 14:21:29.548276712 -0700
@@ -248,7 +248,7 @@ INT add_bruch(a,b,c) OP a,b,c;
goto aiende;
default :
- erg += WTO("add_bruch(2)",b);
+ WTO("add_bruch(2)",b);
};
erg += kuerzen(c);
aiende:
--- src/de.c.orig 2020-02-12 13:49:46.275578190 -0700
+++ src/de.c 2020-02-12 14:21:29.548276712 -0700
@@ -762,7 +762,7 @@ INT mem_size(a) OP a;
case VECTOR: return mem_size_vector(a);
case HASHTABLE: return mem_size_hashtable(a);
default:
- erg += WTO("mem_size",a);goto endr_ende;
+ WTO("mem_size",a);goto endr_ende;
}
ENDR("mem_size");
}
--- src/ff.c.orig 2020-02-12 13:51:43.597527513 -0700
+++ src/ff.c 2020-02-12 14:21:29.550276677 -0700
@@ -629,7 +629,7 @@ static INT erzmulttafel(Erweiterungsgrad
Gau[i] = ((INT *)Gaussmatrix) + (int)k;
ax = Gaussmatrix;
for (j=0;j<k;j++)
- ax = ax++;
+ ax++;
k += (int)Erweiterungsgrad;
}
--- src/hash.c.orig 2020-02-12 12:28:11.798943553 -0700
+++ src/hash.c 2020-02-12 14:21:29.550276677 -0700
@@ -797,7 +797,7 @@ INT hash(a) OP a;
return res;
}
default:
- erg += WTO("hash(1)",a);
+ WTO("hash(1)",a);
break;
}
ENDR("hash");
--- src/io.c.orig 2020-02-12 12:31:28.869433585 -0700
+++ src/io.c 2020-02-12 14:21:29.550276677 -0700
@@ -112,7 +112,7 @@ INT ferrers(obj) OP obj;
case SKEWPARTITION: erg += ferrers_skewpartition(obj); break;
#endif /* SKEWPARTTRUE */
default:
- erg += WTO("ferrers",obj); break;
+ WTO("ferrers",obj); break;
}
ENDR("ferrers");
}
@@ -282,7 +282,7 @@ INT fprint(of,obj) FILE *of; OP obj;
if (of == stdout)
zeilenposition++;
break;
- default: erg += WTO("fprint",obj);
+ default: WTO("fprint",obj);
break;
};
@@ -305,7 +305,7 @@ INT display(obj) OP obj;
break;
#endif /* SCHUBERTTRUE */
default:
- erg += WTO("display(1)",obj);
+ WTO("display(1)",obj);
break;
};
ENDR("display");
--- src/list.c.orig 2020-01-08 11:42:51.000000000 -0700
+++ src/list.c 2020-02-12 14:21:29.550276677 -0700
@@ -107,7 +107,7 @@ ausgabe bis einschliesslich next == NULL
{
if (not LISTP(zeiger))
{
- erg += WTO("fprint_list:internal",zeiger);
+ WTO("fprint_list:internal",zeiger);
goto fple;
}
erg += fprint(f,S_L_S(zeiger));
@@ -209,7 +209,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -230,7 +230,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -249,7 +249,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -268,7 +268,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -288,7 +288,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -309,7 +309,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -336,7 +336,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
}
else
{
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
@@ -350,7 +350,7 @@ INT insert_list(von,nach,eh,cf) OP von,n
C_O_K(c,MONOPOLY);
}
else {
- erg += WTT("insert_list(1,2)",von,nach);
+ WTT("insert_list(1,2)",von,nach);
goto endr_ende;
}
}
--- src/lo.c.orig 2020-02-12 15:19:07.242536444 -0700
+++ src/lo.c 2020-02-12 15:19:24.617250647 -0700
@@ -2641,7 +2641,7 @@ INT add_longint(a,c,l) OP a,c,l;
#endif /* SCHURTRUE */
default:{
- erg += WTO("add_longint(2)",c);
+ WTO("add_longint(2)",c);
goto al_ende;
}
};
@@ -2744,7 +2744,7 @@ INT mult_longint(a,c,l) OP a,c,l;
default:
{
- erg += WTO("mult_longint(2)",a);
+ WTO("mult_longint(2)",a);
break;
}
};
@@ -2870,7 +2870,7 @@ INT ggt_longint(a,b,c) OP a,b,c;
else if (S_O_K(b) == LONGINT)
erg += ggt_longint_longint(a,b,c);
else
- erg += WTO("ggt_longint(2)",b);
+ WTO("ggt_longint(2)",b);
ENDR("ggt_longint");
}
--- src/ma.c.orig 2020-02-12 12:33:28.379324218 -0700
+++ src/ma.c 2020-02-12 14:21:29.551276659 -0700
@@ -1249,11 +1249,11 @@ INT add_matrix(a,b,c) OP a,b,c;
{
INT erg=OK;
if (not MATRIXP(a))
- { erg += WTO("add_matrix",a);goto endr_ende; }
+ { WTO("add_matrix",a);goto endr_ende; }
if (MATRIXP(b))
erg += add_matrix_matrix(a,b,c);
else
- erg += WTO("add_matrix",b);
+ WTO("add_matrix",b);
ENDR("add_matrix");
}
--- src/macro.h.orig 2020-01-07 09:47:28.000000000 -0700
+++ src/macro.h 2020-02-12 14:21:29.552276642 -0700
@@ -1074,10 +1074,12 @@ else binom(a,b,c)
#else
*/
/* freeall_speicherposition is next free object */
-#define CALLOCOBJECT() \
- ( (freeall_speicherposition >= 0L) ? \
- freeall_speicher[freeall_speicherposition--] : \
- callocobject_fast() )
+static inline OP CALLOCOBJECT(void)
+{
+ if (freeall_speicherposition >= 0L)
+ return freeall_speicher[freeall_speicherposition--];
+ return callocobject_fast();
+}
/*
#endif
*/
--- src/mo.c.orig 2020-02-12 12:34:03.443708300 -0700
+++ src/mo.c 2020-02-12 14:21:29.552276642 -0700
@@ -79,7 +79,7 @@ static INT _ggT_v();
static TL_BYTE AK_buf;
#define TL_MOD(a,b) \
- ((AK_buf = (((INT)a)%(b)))<0?AK_buf+b:AK_buf)
+ (AK_buf = ((((INT)a)%(b))<0)?AK_buf+b:AK_buf)
/* mod(a,b)=a mod b >= 0 */
#define TL_ADP(x,y,p) TL_MOD((x)+(y),(INT)p)
--- src/nb.c.orig 2020-02-12 15:15:26.349169843 -0700
+++ src/nb.c 2020-02-12 15:19:24.619250614 -0700
@@ -1887,7 +1887,7 @@ INT cast_apply_monopoly(a) OP a;
NYI("cast_apply_monopoly:POLYNOM->MONOPOLY");
break;
default:
- erg += WTO("cast_apply_monopoly:can not convert",a);
+ WTO("cast_apply_monopoly:can not convert",a);
break;
}
}
--- src/nu.c.orig 2020-01-07 09:47:28.000000000 -0700
+++ src/nu.c 2020-02-12 14:22:27.504259889 -0700
@@ -34,7 +34,7 @@ INT squareroot(a,b) OP a,b;
goto sqende;
#endif /* LONGINTTRUE */
default:
- erg += WTO("squareroot(1)",a);
+ WTO("squareroot(1)",a);
goto sqende;
}
sqende:
@@ -72,7 +72,7 @@ INT ganzsquareroot(a,b) OP a,b;
#endif /* LONGINTTRUE */
default:
- erg+= WTO("ganzsquareroot(1)",a);
+ WTO("ganzsquareroot(1)",a);
goto endr_ende;
}
ENDR("ganzsquareroot");
@@ -118,7 +118,7 @@ INT max(a,b) OP a,b;
#endif /* VECTORTRUE */
default:
- erg += WTO("max(1)",a);
+ WTO("max(1)",a);
goto ende;
};
ende:
@@ -163,7 +163,7 @@ INT min(a,b) OP a,b;
#endif /* VECTORTRUE */
default:
- erg += WTO("min(1)",a);
+ WTO("min(1)",a);
goto ende;
};
ende:
@@ -213,7 +213,7 @@ INT absolute(a,c) OP a,c;
goto ende;
#endif /* VECTORTRUE */
default:
- erg += WTO("absolute(1)",a);
+ WTO("absolute(1)",a);
goto ende;
}
ende:
@@ -335,7 +335,7 @@ INT signum(a,c) OP a,c;
erg += signum_permutation(a,c);break;
#endif /* PERMTRUE */
default:
- erg += WTO("signum",a); break;
+ WTO("signum",a); break;
};
ENDR("signum");
}
@@ -547,7 +547,7 @@ INT SYM_sort(a) OP a;
erg += sort_vector(a);break;
#endif /* VECTORTRUE */
default:
- erg += WTO("SYM_sort",a); break;
+ WTO("SYM_sort",a); break;
};
ENDR("SYM_sort");
}
@@ -612,7 +612,7 @@ INT length(a,d) OP a,d;
break;
#endif /* VECTORTRUE */
default:
- erg += WTO("length",a); break;
+ WTO("length",a); break;
};
ENDR("length");
}
@@ -636,7 +636,7 @@ INT content(a,b) OP a,b;
break;
#endif /* WORDTRUE */
default:
- erg += WTO("content",a); break;
+ WTO("content",a); break;
};
ENDR("content");
}
@@ -677,7 +677,7 @@ INT SYM_sum(a,res) OP a,res;
break;
#endif /* MATRIXTRUE */
default:
- erg += WTO("sum",a); break;
+ WTO("sum",a); break;
};
ENDR("SYM_sum");
@@ -742,7 +742,7 @@ INT conjugate(a,res) OP a,res;
break;
#endif /* TABLEAUXTRUE */
default:
- erg += WTO("conjugate",a);
+ WTO("conjugate",a);
break;
};
@@ -835,7 +835,7 @@ INT addinvers(a,res) OP a,res;
break;
#endif /* VECTORTRUE */
default:
- erg += WTO("addinvers(1)",a); break;
+ WTO("addinvers(1)",a); break;
};
ENDR("addinvers");
}
@@ -1073,7 +1073,7 @@ INT inc(a) OP a;
#endif /* VECTORTRUE */
default:
- erg += WTO("inc(1)",a);
+ WTO("inc(1)",a);
break;
};
ENDR("inc");
@@ -1115,7 +1115,7 @@ INT dec(a) OP a;
break;
#endif /* VECTORTRUE */
default:
- erg += WTO("dec(1)",a); break;
+ WTO("dec(1)",a); break;
};
ENDR("dec");
}
@@ -1179,7 +1179,7 @@ INT dimension(n,d) OP n, d;
break;
#endif /* SKEWPARTTRUE */
default:
- erg += WTO("dimension",n); break;
+ WTO("dimension",n); break;
}
ENDR("dimension");
}
@@ -1318,7 +1318,7 @@ INT quores(a,b,c,d) OP a,b,c,d;
}
#endif /* MONOPOLYTRUE */
default:
- erg += WTT("quores",a,b);
+ WTT("quores",a,b);
break;
}
quoresende:
@@ -1390,7 +1390,7 @@ INT mod(a,b,c) OP a,b,c;
else if (S_O_K(a) == MONOPOLY)
erg += quores_monopoly(a,b,d,c);
else
- erg += WTO("mod",a);
+ WTO("mod",a);
FREEALL(d);
ENDR("mod");
@@ -1481,7 +1481,7 @@ INT mod_apply_integer(a,b) OP a,b;
erg += mod_apply_integer_longint(a,b);
break;
default:
- erg += WTO("mod_apply_integer(2)",b);
+ WTO("mod_apply_integer(2)",b);
break;
}
ENDR("mod_apply_integer");
@@ -1824,7 +1824,7 @@ INT ggt_integer(a,b,c) OP a,b,c;
case LONGINT: erg += ggt_integer_longint(a,b,c);
goto endr_ende;
default:
- erg += WTO("ggt_integer(2)",b);
+ WTO("ggt_integer(2)",b);
goto endr_ende;
}
ENDR("ggt_integer");
@@ -1966,7 +1966,7 @@ INT ggt(a,b,c) OP a,b,c;
}
}
else {
- erg += WTO("ggt(1)",a);
+ WTO("ggt(1)",a);
goto endr_ende;
}
ENDR("ggt");
@@ -2185,7 +2185,7 @@ INT invers(a,b) OP a,b;
#endif /* SQRADTRUE */
default:
- erg += WTO("invers(1)",a);
+ WTO("invers(1)",a);
break;
};
ENDR("invers");
@@ -2482,7 +2482,7 @@ INT scalarproduct(a,b,c) OP a,b,c;
#endif /* VECTORTRUE */
default:
- erg += WTT("scalarproduct",a,b);
+ WTT("scalarproduct",a,b);
break;
};
ENDR("scalarproduct");
@@ -2564,7 +2564,7 @@ INT weight(a,b) OP a,b;
break;
default:
- erg += WTO("weight",a);
+ WTO("weight",a);
break;
};
ENDR("weight");
@@ -2589,7 +2589,7 @@ INT trace(a,b) OP a,b;
#endif /* MATRIXTRUE */
default:
- erg += WTO("trace",a); break;
+ WTO("trace",a); break;
};
ENDR("trace");
}
@@ -2610,7 +2610,7 @@ INT det(a,b) OP a,b;
break;
#endif /* MATRIXTRUE */
default:
- erg += WTO("det",a); break;
+ WTO("det",a); break;
};
ENDR("det");
}
@@ -2771,7 +2771,7 @@ INT addinvers_apply(a) OP a;
#endif /* VECTORTRUE */
default:
- erg += WTO("addinvers_apply",a);
+ WTO("addinvers_apply",a);
break;
};
ENDR("addinvers_apply");
--- src/part.c.orig 2020-02-12 15:19:07.243536428 -0700
+++ src/part.c 2020-02-12 15:19:24.620250598 -0700
@@ -533,7 +533,7 @@ INT add_partition(a,b,c) OP a,b,c;
#endif /* SCHURTRUE */
default :
- erg += WTO("add_partition(2)",b);
+ WTO("add_partition(2)",b);
}
ENDR("add_partition");
--- src/perm.c.orig 2020-02-12 12:38:26.777082837 -0700
+++ src/perm.c 2020-02-12 14:21:29.554276607 -0700
@@ -371,7 +371,7 @@ INT divdiff(a,b,c) OP a,b,c;
break;
#endif
default:
- erg += WTT("divdiff",a,b);
+ WTT("divdiff",a,b);
break;
};
break;
@@ -390,7 +390,7 @@ INT divdiff(a,b,c) OP a,b,c;
break;
#endif
default:
- erg += WTT("divdiff",a,b);
+ WTT("divdiff",a,b);
break;
};
break;
@@ -407,7 +407,7 @@ INT divdiff(a,b,c) OP a,b,c;
break;
}
default:
- erg += WTT("divdiff",a,b);
+ WTT("divdiff",a,b);
break;
}
ENDR("divdiff");
@@ -3585,7 +3585,7 @@ INT cast_apply_perm(a) OP a;
break;
default:
printobjectkind(a);
- erg += WTO("cast_apply_perm",a);
+ WTO("cast_apply_perm",a);
break;
}
ENDR("cast_apply_perm");
--- src/plet.c.orig 2020-02-12 15:17:18.909318376 -0700
+++ src/plet.c 2020-02-12 15:19:24.622250565 -0700
@@ -160,7 +160,7 @@ INT plethysm(a,b,c) OP a,b,c;
erg += plethysm_schur_schur(a,b,c);
}
else {
- erg += WTT("plethysm",a,b);
+ WTT("plethysm",a,b);
}
ENDR("plethysm");
}
--- src/poly.c.orig 2020-02-12 12:39:03.854431569 -0700
+++ src/poly.c 2020-02-12 14:21:29.555276589 -0700
@@ -285,7 +285,7 @@ INT mult_monom(a,b,c) OP a,b,c;
erg += mult_apply_longint(b,S_MO_K(c));
break;
default:
- erg += WTO("mult_monom",b);
+ WTO("mult_monom",b);
}
ENDR("mult_monom");
}
@@ -659,7 +659,7 @@ INT mult_polynom(a,b,d) OP a,b,d;
goto ende;
default:
- erg += WTO("mult_polynom(2)",b);
+ WTO("mult_polynom(2)",b);
}
ende:
ENDR("mult_polynom");
@@ -1363,7 +1363,7 @@ INT add_polynom_polynom(a,b,c) OP a,b,c;
||
(not LISTP(b))
)
- erg+= WTT("add_polynom_polynom(1,2)",a,b);
+ WTT("add_polynom_polynom(1,2)",a,b);
SYMCHECK(S_O_K(a) != S_O_K(b), "add_polynom_polynom:different object types");
d = callocobject();
erg += copy_list(a,d);
@@ -2991,7 +2991,7 @@ INT cast_apply_polynom(a) OP a;
erg += t_MONOPOLY_POLYNOM(a,a);
break;
default:
- erg += WTO("cast_apply_polynom",a);
+ WTO("cast_apply_polynom",a);
break;
}
ENDR("cast_apply_polynom");
--- src/rest.c.orig 2020-02-12 15:19:07.244536411 -0700
+++ src/rest.c 2020-02-12 15:19:24.623250548 -0700
@@ -511,7 +511,7 @@ INT rz(a,b) OP a, b;
break;
#endif /* PERMTRUE */
default:
- erg+= WTO("rz(1)",a);
+ WTO("rz(1)",a);
break;
};
@@ -555,7 +555,7 @@ INT lastof(a,res) OP a,res;
#endif /* VECTORTRUE */
default:
- erg+= WTO("lastof(1)",a);
+ WTO("lastof(1)",a);
break;
};
ENDR("lastof");
@@ -749,7 +749,7 @@ INT freeself(a) OP a;
break;
#endif /* VECTORTRUE */
default:
- erg += WTO("freeself(1)",a);
+ WTO("freeself(1)",a);
break;
};
CTO(EMPTY,"freeself(e1)",a);
@@ -898,7 +898,7 @@ INT copy(a,b) OP a, b;
erg += copy_bitvector(a,b); break;
#endif /* VECTORTRUE */
default:
- erg+= WTO("copy(1)",a);
+ WTO("copy(1)",a);
break;
};
@@ -931,7 +931,7 @@ INT append_apply(a,b) OP a,b;
break;
#endif /* VECTORTRUE */
default:
- erg+= WTO("append_apply",a);
+ WTO("append_apply",a);
break;
};
ENDR("append_apply");
@@ -975,7 +975,7 @@ INT append(a,b,e) OP a,b,e;
erg += append_vector(a,b,e);
break;
#endif /* VECTORTRUE */
- default: erg+= WTO("append",a); break;
+ default: WTO("append",a); break;
};
ENDR("append");
}
@@ -1522,7 +1522,7 @@ INT posp(a) OP a;
return posp_polynom(a);
#endif /* POLYTRUE */
default:
- erg += WTO("posp",a);
+ WTO("posp",a);
goto endr_ende;
};
ENDR("posp");
@@ -2288,7 +2288,7 @@ object */
if (NULLP_INTEGER(a))
COPY(b,c);
else
- erg += WTO("add_integer(2)",b);
+ WTO("add_integer(2)",b);
goto aiende;
} /* end switch */
aiende:
@@ -2938,7 +2938,7 @@ INT mult_apply_integer(a,b) OP a,b;
else if (S_I_I(a) == (INT)-1)
erg += addinvers_apply(b);
else
- erg += WTO("mult_apply_integer: wrong second type",b);
+ WTO("mult_apply_integer: wrong second type",b);
}
ENDR("mult_apply_integer");
}
@@ -3234,7 +3234,7 @@ INT next_apply(obj) OP obj;
}
#endif /* PERMTRUE */
default:
- erg+= WTO("next_apply(1)",obj);
+ WTO("next_apply(1)",obj);
break;
}
ENDR("next_apply");
@@ -3292,7 +3292,7 @@ INT next(von,nach) OP von, nach;
return error("next: wrong kind of permutation");
}
#endif /* PERMTRUE */
- default: erg+= WTO("next(1)",von);
+ default: WTO("next(1)",von);
break;
}
ENDR("next");
@@ -3400,7 +3400,7 @@ INT insert(a,c,eh,cf) OP a,c; INT (*eh)(
goto endr_ende;
#endif /* POLYTRUE */
default:
- erg += WTT("insert(1,2)",a,c);
+ WTT("insert(1,2)",a,c);
goto endr_ende;
};
ENDR("insert");
--- src/rh.c.orig 2020-02-12 11:47:05.536666891 -0700
+++ src/rh.c 2020-02-12 14:21:29.556276572 -0700
@@ -2529,12 +2529,12 @@ INT select_degree_reihe(a,b,c) OP a,b,c;
if (S_O_K(a) != REIHE)
{
- erg += WTT("select_degree_reihe",a,b);
+ WTT("select_degree_reihe",a,b);
goto sdr_ende;
}
if (S_O_K(b) != INTEGER)
{
- erg += WTT("select_degree_reihe",a,b);
+ WTT("select_degree_reihe",a,b);
goto sdr_ende;
}
if (S_I_I(b) < 0L)
--- src/sb.c.orig 2020-02-12 13:34:12.633030700 -0700
+++ src/sb.c 2020-02-12 14:21:29.556276572 -0700
@@ -28,7 +28,7 @@ INT cast_apply_schubert(a) OP a;
erg += m_scalar_schubert(a,a);
break;
default:
- erg += WTO("cast_apply_schubert",a);
+ WTO("cast_apply_schubert",a);
break;
}
ENDR("cast_apply_schubert");
--- src/sr.c.orig 2020-02-12 15:14:55.501677243 -0700
+++ src/sr.c 2020-02-12 15:19:24.624250532 -0700
@@ -2926,7 +2926,7 @@ INT mult_elmsym_scalar(a,b,c) OP a,b,c;
case MONOMIAL: erg += monomialf(a,b,c); goto endr_ende;\
case ELMSYM: erg += elmsymf(a,b,c); goto endr_ende;\
case POWSYM: erg += powsymf(a,b,c); goto endr_ende;\
- default: erg += WTO(t,b); goto endr_ende;\
+ default: WTO(t,b); goto endr_ende;\
}
INT mult_schur(a,b,c) OP a,b,c;
@@ -3255,7 +3255,7 @@ INT t_MONOMIAL_MONOMIAL(a,b) OP a,b; { r
case MONOMIAL: erg += monomialf(a,b); goto ende;\
case ELMSYM: erg += elmsymf(a,b); goto ende;\
case POWSYM: erg += powsymf(a,b); goto ende;\
- default: erg += WTO(t,a); goto ende;\
+ default: WTO(t,a); goto ende;\
}\
ende:
--- src/vc.c.orig 2020-02-12 15:19:07.245536395 -0700
+++ src/vc.c 2020-02-12 15:19:24.624250532 -0700
@@ -425,12 +425,12 @@ INT add_vector(a,b,c) OP a, b, c;
CTO(EMPTY,"add_vector(3)",c);
if (not VECTORP(b))
{
- erg += WTO("add_vector(2)",b);
+ WTO("add_vector(2)",b);
goto endr_ende;
}
if (not VECTORP(a))
{
- erg += WTO("add_vector(1)",a);
+ WTO("add_vector(1)",a);
goto endr_ende;
}
CTO(EMPTY,"add_vector(3)",c);