wl

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

commit e8d4c8bab44ffc841d43a3bc6d519a636cf1fe1f
parent d618401a5a9f8fd6b8076ffce7c6e2ecf6d4a95e
Author: tomas <tomas@logand.com>
Date:   Sat, 24 Apr 2010 09:59:28 +0200

s/Sd/Id/

Diffstat:
Mwl.java | 34+++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/wl.java b/wl.java @@ -375,11 +375,11 @@ class wl implements Runnable { } // evaluator - HashMap<String, Any> Sd = new HashMap<String, Any>(); + HashMap<String, Any> Id = new HashMap<String, Any>(); Any intern(String Nm) { - if(!Sd.containsKey(Nm)) Sd.put(Nm, mkNsym(Nm, NIL)); - return Sd.get(Nm); + if(!Id.containsKey(Nm)) Id.put(Nm, mkNsym(Nm, NIL)); + return Id.get(Nm); } Any xrun(Any P, int n, Any L) { @@ -631,9 +631,9 @@ class wl implements Runnable { void unframe() {while(T != Env.val().car()) unbind(); Env.val(Env.val().cdr());} void fn(String Nm, Fn F) { - Any Z = Sd.get(Nm); + Any Z = Id.get(Nm); if(null != Z) Z.val(mkObj(F)); - else Sd.put(Nm, mkNsym(Nm, mkObj(F))); + else Id.put(Nm, mkNsym(Nm, mkObj(F))); } boolean member(Any X, Any L) { for(; L.isCons(); L = L.cdr()) @@ -725,18 +725,18 @@ class wl implements Runnable { final BlockingQueue<Any> Que = new LinkedBlockingQueue<Any>(); public wl() { - Sd.put("NIL", NIL); - Sd.put("T", T); - Sd.put("quote", Qte); - Sd.put(".", Dot); - Sd.put("@", At); - Sd.put("*Args", Args); - Sd.put("*In", In); - Sd.put("*Out", Out); - Sd.put("*Env", Env); - Sd.put("*Stk", Stk); - Sd.put("*Scl", Scl); - Sd.put("java.lang.Class", mkNsym("java.lang.Class", mkObj(Class.class))); + Id.put("NIL", NIL); + Id.put("T", T); + Id.put("quote", Qte); + Id.put(".", Dot); + Id.put("@", At); + Id.put("*Args", Args); + Id.put("*In", In); + Id.put("*Out", Out); + Id.put("*Env", Env); + Id.put("*Stk", Stk); + Id.put("*Scl", Scl); + Id.put("java.lang.Class", mkNsym("java.lang.Class", mkObj(Class.class))); fn("run", new Fn() {public Any fn(Any E) { Any I = E.cdr();