2003/06/07 08:28:17
authormegacz <megacz@xwt.org>
Fri, 30 Jan 2004 07:00:48 +0000 (07:00 +0000)
committermegacz <megacz@xwt.org>
Fri, 30 Jan 2004 07:00:48 +0000 (07:00 +0000)
darcs-hash:20040130070048-2ba56-588bc4a037e44b472fa6ba10088f45849191bb9e.gz

src/org/xwt/js/ForthBlock.java

index f1f1e0a..b923f8f 100644 (file)
@@ -38,14 +38,7 @@ class ForthBlock implements OpCodes, Tokens {
            case LITERAL: t.push(arg[i]); break;
            case OBJECT: t.push(new JS.Obj()); break;
            case ARRAY: t.push(new JS.Array(JS.toNumber(arg[i]).intValue())); break;
-           case DECLARE: {
-               String st = (String)t.pop();
-               if (st.equals("sel")) {
-                   System.out.println("**** SEL!");
-                   for(int j=0; j<4; j++) System.out.println(op[i+j] + " " + arg[i+j]);
-               }
-               s.declare(st); break;
-           }
+           case DECLARE: s.declare((String)t.pop()); break;
            case THIS: t.push(s); break;   // FIXME: transparents
            case JT: if (JS.toBoolean(t.pop())) i += JS.toNumber(arg[i]).intValue() - 1; break;
            case JF: if (!JS.toBoolean(t.pop())) i += JS.toNumber(arg[i]).intValue() - 1; break;