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