shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fl_any_arith: fix wrong function used (mpnew → vtomp)

--- a/fl_arith_any.inc

+++ b/fl_arith_any.inc

@@ -81,14 +81,8 @@

 	i++;

 	if(Maccum == nil)

 		Maccum = vtomp(Saccum, nil);

-	if(m == nil){

-		if(u64 != ACCUM_DEFAULT)

-			m = uvtomp(u64, nil);

-		else if(x != ACCUM_DEFAULT)

-			m = vtomp(x, nil);

-		else

-			m = mpnew(ACCUM_DEFAULT);

-	}

+	if(m == nil)

+		m = u64 != ACCUM_DEFAULT ? uvtomp(u64, nil) : vtomp(x, nil);

 	MP_OP(Maccum, m, Maccum);