Эх сурвалжийг харах

Amélioration operateur cons

Arthur Brandao 6 жил өмнө
parent
commit
b95d9e7644

+ 2 - 7
src/migl/lisp/operator/ConsOperator.java

@@ -18,19 +18,14 @@ public class ConsOperator implements LispOperator {
 			//Recup + evaluation de la liste
 			cl = this.parseList(LispElement.getElement(lisp.cdr().car()).toString());
 			//Ajoute la valeur de gauche devant
-			if(lisp.car() instanceof ConsList) {
-				//Si la valeur gauche est aussi une liste on evalue sa valaue
-				cl = cl.prepend(LispElement.getElement(lisp.car()).value);
-			} else {
-				cl = cl.prepend(lisp.car());
-			}
+			cl = cl.prepend(LispElement.getElement(lisp.car()).value);
 		} else {
 			LispElement le;
 			if(lisp.car() instanceof ConsList) {
 				//Si l'element est une liste on evalue sa valeur
 				le = LispElement.getElement(lisp.car());
 			} else {
-				le = LispElement.generate(lisp.car());
+				le = LispElement.getElement(lisp.car());
 			}
 			cl = ConsListFactory.asList(le + " . " + lisp.cdr().car());
 		}