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

No extra comma for inlined scheme functions

Browse source
This commit is contained in:
Justin Ethier 2017-04-19 00:54:01 +00:00
parent 9b7a5e3cfe
commit 62559ee2c0
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

@ -734,7 +734,9 @@
(if (prim/c-var-assign fun) (if (prim/c-var-assign fun)
;; Add a comma if there were any args to the func added by comp-prim ;; Add a comma if there were any args to the func added by comp-prim
(if (or (str-ending? (car (c:allocs c-fun)) "(") (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)))
"" ""
",") ",")
",") ",")