[nongnu] elpa/emacsql d3fa5b908f 234/427: Add funcall operator.

[ELPA Syncer]

branch: elpa/emacsql
commit d3fa5b908f37c41586e8a76e42569a91be107035
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@nullprogram.com>

    Add funcall operator.
---
 emacsql-compiler.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 1b209f09fc..5fa0fed840 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -252,6 +252,16 @@ which will be combined with variable definitions."
              (format "%s %s" (recur 0) (upcase (symbol-name op))))
             ;; Special case quote
             ((quote) (scalar (nth 0 args)))
+            ;; Special case funcall
+            ((funcall)
+             (format "%s(%s)" (recur 0)
+                     (if (and (= 2 (length args))
+                              (eq '* (nth 1 args)))
+                         "*"
+                       (mapconcat
+                        #'recur (cl-loop for i from 1 below (length args)
+                                         collect i)
+                        ", "))))
             ;; Guess
             (otherwise
              (mapconcat