wl

commit e585a3385aa532ceb6e2c3db9b2460e71c64f92e
parent 009e450ec50263f7d3ecbe3d5af81fe0aacc2f3d
Author: tomas <tomas@logand.com>
Date:   Wed,  7 Oct 2009 23:56:15 +0200

bug fixes

Diffstat:
M
wl.java
 | 
16
++++++++--------

1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/wl.java b/wl.java
@@ -135,8 +135,8 @@ class wl implements Runnable {
         public Any val() {err("No Obj.val"); return null;}
         public Any prop() {err("No Obj.prop"); return null;}
         public Object cxr() {return cxr;}
-        public Any car(Any a) {err("No Obj.set"); return null;}
-        public Any cdr(Any d) {err("No Obj.con"); return null;}
+        public Any car(Any a) {err("No Obj.car"); return null;}
+        public Any cdr(Any d) {err("No Obj.cdr"); return null;}
         public Any val(Any v) {err("No Obj.val"); return null;}
         public Any prop(Any p) {err("No Obj.prop"); return null;}
         public Object cxr(Object x) {cxr = x; return cxr;}
@@ -332,11 +332,11 @@ class wl implements Runnable {
         if(Fa.isIsym()) {
             if(NIL != Fa) {
                 if(At == Fa) {
-                    O = mkCons(Args.cdr(), NIL);
-                    Args.cdr(mkCons(NIL, mapcarEval(A)));
+                    O = mkCons(Args.val(), NIL);
+                    Args.val(mkCons(NIL, mapcarEval(A)));
                 } else {
-                    O = mkCons(Fa.car(), NIL);
-                    Fa.car(A);
+                    O = mkCons(Fa.val(), NIL);
+                    Fa.val(A);
                 }
             } 
         } else if(Fa.isCons()) {
@@ -366,8 +366,8 @@ class wl implements Runnable {
     void restoreV(Any Fa, Any O) {
         if(Fa.isIsym()) {
             if(NIL != Fa) {
-                if(At == Fa) Args.car(O.car());
-                else Fa.car(O.car());
+                if(At == Fa) Args.val(O.car());
+                else Fa.val(O.car());
             }
         } else if(Fa.isCons()) {
             while(Fa.isCons()) {