%js-call to compile to plain js calls

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 0813715..fa505e2 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1608,6 +1608,11 @@
         (code (binding-value b) " = " (ls-compile val))
         (ls-compile `(set ',var ,val)))))
 
+
+(define-compilation %js-call (fun &rest args)
+  (let ((evaled-args (mapcar #'ls-compile args)))
+    (code fun "(" (join evaled-args ", ") ")")))
+
 (define-compilation setq (&rest pairs)
   (let ((result ""))
     (while t