Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Extend case for udf's

Browse source
This commit is contained in:
Justin Ethier 2018-12-14 13:28:37 -05:00
parent aaddb3c403
commit c6aa29d7ab
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/cgen.sld
View file

@ -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*)