From 62559ee2c061b06dde4c1e9c7fb5123eb2bc92dc Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 19 Apr 2017 00:54:01 +0000 Subject: [PATCH] No extra comma for inlined scheme functions --- 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 037b060a..431b5566 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -734,7 +734,9 @@ (if (prim/c-var-assign fun) ;; Add a comma if there were any args to the func added by comp-prim (if (or (str-ending? (car (c:allocs c-fun)) "(") - (prim:cont/no-args? fun)) + (prim:cont/no-args? fun) + (and (prim:udf? fun) + (zero? num-args))) "" ",") ",")