2003/06/07 08:28:17

[org.ibex.core.git] / src / org / xwt / js / ForthBlock.java

diff --git a/src/org/xwt/js/ForthBlock.java b/src/org/xwt/js/ForthBlock.java
index f1f1e0a..b923f8f 100644 (file)
--- a/src/org/xwt/js/ForthBlock.java
+++ b/src/org/xwt/js/ForthBlock.java
@@ -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;