wl

Unnamed repository; edit this file 'description' to name the repository.
git clone https://logand.com/git/wl.git/
Log | Files | Refs | LICENSE

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

bug fixes

Diffstat:
Mwl.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()) {