Преглед на файлове

Amélioration évaluation

Arthur Brandao преди 6 години
родител
ревизия
a6f31a5a6b
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      src/migl/lisp/LispImpl.java

+ 3 - 0
src/migl/lisp/LispImpl.java

@@ -253,6 +253,9 @@ public class LispImpl implements Lisp {
 			}
 			LispElement elt1 = getElement(lisp.car());
 			LispElement elt2 = getElement(lisp.cdr().car());
+			if(elt2.toNumber() == 0) {
+				throw new LispError("Division by zero");
+			}
 			if(elt1.value.getClass() == Double.class || elt2.value.getClass() == Double.class) {
 				return LispElement.generate(elt1.toNumber() / elt2.toNumber());
 			}