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

Bug fixes

Browse source
This commit is contained in:
Justin Ethier 2018-09-21 13:22:05 -04:00
parent 40a2131fef
commit fe08c5ae96
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cgen.sld
View file

@ -938,9 +938,9 @@
"(data," "(data,"
this-cont this-cont
"," ","
c-lambda-fnc-str
","
c-lambda-fnc-gc-ret-str c-lambda-fnc-gc-ret-str
","
c-lambda-fnc-str
(if (> num-cargs 0) "," "") (if (> num-cargs 0) "," "")
(c:body cargs) (c:body cargs)
");")) ");"))
@ -1627,7 +1627,7 @@
(with-fnc (ast:lambda-id ast) (lambda (fnc) (with-fnc (ast:lambda-id ast) (lambda (fnc)
(when (and (adbf:well-known fnc) (when (and (adbf:well-known fnc)
(equal? (adbf:closure-size fnc) 1)) (equal? (adbf:closure-size fnc) 1))
(trace:error `(JAE ,l ,fnc)) ;(trace:error `(JAE ,l ,fnc))
(let* ((params-str (cdadr l)) (let* ((params-str (cdadr l))
(args-str (args-str
(string-join (string-join