From: megacz <megacz@xwt.org>
Date: Fri, 30 Jan 2004 07:00:49 +0000 (+0000)
Subject: 2003/06/07 09:09:44
X-Git-Tag: RC3~945
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1ef9a98437c8563ec83cb56032b630181728b528;p=org.ibex.core.git

2003/06/07 09:09:44

darcs-hash:20040130070049-2ba56-b849955126c10dd5c36b09fbc042b1f53aabd27d.gz
---

diff --git a/src/org/xwt/js/ForthBlock.java b/src/org/xwt/js/ForthBlock.java
index b923f8f..0cc4ed2 100644
--- a/src/org/xwt/js/ForthBlock.java
+++ b/src/org/xwt/js/ForthBlock.java
@@ -101,7 +101,9 @@ class ForthBlock implements OpCodes, Tokens {
 	    case PUT: {
 		Object val = t.pop();
 		Object key = t.pop();
-		((JS)t.peek()).put(key, val);
+		JS target = (JS)t.peek();
+		if (target == null) throw new JS.Exn("tried to put a value to the " + key + " property on the null value");
+		target.put(key, val);
 		t.push(val);
 		break;
 	    }