summaryrefslogtreecommitdiff
path: root/module/language/ecmascript/impl.scm
diff options
context:
space:
mode:
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*))