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.scm24
1 files changed, 21 insertions, 3 deletions
diff --git a/module/language/ecmascript/impl.scm b/module/language/ecmascript/impl.scm
index fd6ed8865..9db92e3e4 100644
--- a/module/language/ecmascript/impl.scm
+++ b/module/language/ecmascript/impl.scm
@@ -24,12 +24,18 @@
#:use-module (language ecmascript base)
#:use-module (language ecmascript function)
#:use-module (language ecmascript array)
- #:export (get-this typeof)
#:re-export (*undefined* *this* call/this*
- pget pput pdel
+ pget pput pdel has-property?
new-object
new
- new-array))
+ new-array)
+ #:export (get-this
+ typeof
+ bitwise-not logical-not
+ shift
+ mod
+ band bxor bior))
+
(define (get-this)
(fluid-ref *this*))
@@ -43,3 +49,15 @@
((procedure? x) "function")
((is-a? x <js-object>) "object")
(else "scm")))
+
+(define bitwise-not lognot)
+(define (logical-not x)
+ (not (->boolean (->primitive x))))
+
+(define shift ash)
+
+(define band logand)
+(define bxor logxor)
+(define bior logior)
+
+(define mod modulo)