瀏覽代碼

Amélioration operateur cons

Arthur Brandao 6 年之前
父節點
當前提交
b95d9e7644
共有 1 個文件被更改,包括 2 次插入7 次删除
  1. 2 7
      src/migl/lisp/operator/ConsOperator.java

+ 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());
 		}