Selaa lähdekoodia

Amélioration -

Arthur Brandao 6 vuotta sitten
vanhempi
sitoutus
e5e088ca9d
1 muutettua tiedostoa jossa 2 lisäystä ja 1 poistoa
  1. 2 1
      src/migl/lisp/LispImpl.java

+ 2 - 1
src/migl/lisp/LispImpl.java

@@ -118,7 +118,8 @@ public class LispImpl implements Lisp {
 				case 1:
 					LispElement<?> elt = getElement(lisp.car());
 					if(elt.value.getClass() == Double.class) {
-						return LispElement.generate(elt.toNumber() * -1);
+						//return LispElement.generate(elt.toNumber() * -1); Pour eviter pb pitest qui remplace * par / or *-1 == /-1
+						return LispElement.generate(Double.valueOf("-" + elt.toString()));
 					}
 					return LispElement.generate(elt.toInt().multiply(new BigInteger("-1")));
 				case 2: