Make format arguments optional

5 months ago · b37fa47159
1 changed files with 1 additions and 1 deletions
--- a/src/XML.cake
+++ b/src/XML.cake
@ -159,7 +159,7 @@
 (defun output-xml (output-file (* FILE) str (* (const char)))
  (fputs str output-file))

-(defmacro format-quote (output-file any format-str string &rest format-arguments any)
+(defmacro format-quote (output-file any format-str string &optional &rest format-arguments any)
  (var quoted-format-str Token (deref format-str))
  (token-contents-snprintf quoted-format-str "\"%s\"" (call-on c_str (path format-str > contents)))
  (tokenize-push output