summaryrefslogtreecommitdiff
path: root/module/language/ecmascript/impl.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-02-20 13:21:09 +0100
committerAndy Wingo <wingo@pobox.com>2009-02-21 00:33:03 +0100
commit785fb107ef1df793182f59f00251f9f7e3959792 (patch)
treecbbe442822233e93b0989c91f081afb7254c65ba /module/language/ecmascript/impl.scm
parente80ce73d209892bae3bea80853d9e0e16cd82ed1 (diff)
downloadguile-785fb107ef1df793182f59f00251f9f7e3959792.tar.gz
handle "this" in ecmascript
* module/language/ecmascript/base.scm: * module/language/ecmascript/compile-ghil.scm: * module/language/ecmascript/impl.scm: * module/language/ecmascript/parse.scm: Compile "method calls" in such a way that "this" gets propagated correctly.
Diffstat (limited to 'module/language/ecmascript/impl.scm')
-rw-r--r--module/language/ecmascript/impl.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/language/ecmascript/impl.scm b/module/language/ecmascript/impl.scm
index f38a4450b..2ab83a158 100644
--- a/module/language/ecmascript/impl.scm
+++ b/module/language/ecmascript/impl.scm
@@ -24,9 +24,12 @@
#:use-module (language ecmascript base)
#:use-module (language ecmascript function)
#:use-module (language ecmascript array)
- #:re-export (*undefined* *this*
+ #:export (get-this)
+ #:re-export (*undefined* *this* call/this*
pget pput pdel
new-object
new
new-array))
+(define (get-this)
+ (fluid-ref *this*))