Added binary negation ~ operator.

diff --git a/src/js.lisp b/src/js.lisp
index 4696be2..94973c0 100644 (file)
--- a/src/js.lisp
+++ b/src/js.lisp
@@ -654,6 +654,10 @@ vice-versa.")
        (make-instance 'one-op :pre-p t :op "!"
                       :value value))))
 
+(define-js-compiler-macro ~ (x)
+  (let ((expr (js-compile-to-expression x)))
+    (make-instance 'one-op :pre-p t :op "~" :value expr)))
+
 ;;; function calls
 
 (defjsclass function-call (expression)