branch: elpa/emacsql
commit d3fa5b908f37c41586e8a76e42569a91be107035
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@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
