From c6aa29d7ab85534a1b0be9ab06a850f05fbb7f4b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Dec 2018 13:28:37 -0500
Subject: [PATCH] Extend case for udf's

---
 scheme/cyclone/cgen.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index a2ab568c..7195bbb0 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -992,7 +992,9 @@
                   (let ()
                     ;; Add a comma if necessary
                     (if (or (str-ending? (c:body c-fun) "(")
-                            (prim:cont/no-args? fun))
+                            (prim:cont/no-args? fun)
+                            (and (prim:udf? fun)
+                                 (zero? num-args)))
                       c-fun
                       (c:append c-fun (c-code ", "))))
                   c-args*)