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

Only emit new return macro when clo can be omitted

Browse source
This commit is contained in:
Justin Ethier 2018-09-21 12:44:18 -04:00
parent cc5f14f63e
commit ade50748b6
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/cgen.sld
View file

@ -924,7 +924,8 @@
(else ;; CPS, IE normal behavior
(set-c-call-arity! num-cargs)
(with-fnc (ast:lambda-id (closure->lam fun)) (lambda (fnc)
(if (adbf:well-known fnc)
(if (and (adbf:well-known fnc)
(equal? (adbf:closure-size fnc) 1))
(let* ((lid (adbf:cgen-id fnc))
(c-lambda-fnc-str (string-append "__lambda_" (number->string lid)))
(c-lambda-fnc-gc-ret-str (string-append "__lambda_gc_ret_" (number->string lid)))