diff options
author | Andy Wingo <wingo@pobox.com> | 2009-02-20 13:21:09 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-02-21 00:33:03 +0100 |
commit | 785fb107ef1df793182f59f00251f9f7e3959792 (patch) | |
tree | cbbe442822233e93b0989c91f081afb7254c65ba /module/language/ecmascript/impl.scm | |
parent | e80ce73d209892bae3bea80853d9e0e16cd82ed1 (diff) | |
download | guile-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.scm | 5 |
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*)) |