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

Bugfix, do not add & for "fast" functions

Browse source
This commit is contained in:
Justin Ethier 2016-10-14 23:10:16 -04:00
parent cf735c7917
commit 5d089b83eb
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -552,7 +552,12 @@
(lambda (type) (lambda (type)
(let ((cv-name (mangle (gensym 'c)))) (let ((cv-name (mangle (gensym 'c))))
(c-code/vars (c-code/vars
(string-append (if (prim:cont? p) "" "&") cv-name) (string-append
(if (or (prim:cont? p)
(prim/c-var-pointer p)) ;; Assume returns object
""
"&")
cv-name)
(list (list
(string-append (string-append
;; Define closure if necessary (apply only) ;; Define closure if necessary (apply only)