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

Added comments, cleanup

Browse source
This commit is contained in:
Justin Ethier 2018-06-06 19:00:06 -04:00
parent 0d83580fd5
commit b3ea8324bd
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

@ -716,6 +716,7 @@
(let* ((args (app->args exp)) (let* ((args (app->args exp))
(fun (app->fun exp))) (fun (app->fun exp)))
(cond (cond
;; Direct recursive call of top-level function
((and (pair? trace) ((and (pair? trace)
(not (null? (cdr trace))) (not (null? (cdr trace)))
(adbv:direct-rec-call? (adb:get (cdr trace))) (adbv:direct-rec-call? (adb:get (cdr trace)))
@ -724,8 +725,9 @@
(equal? (car args) (cdr trace)) (equal? (car args) (cdr trace))
) )
(let* ((cgen (let* ((cgen
;; TODO: skip the closure, just cdr the cdr???
(c-compile-args (c-compile-args
args (cdr args)
append-preamble append-preamble
"" ""
"" ;;this-cont "" ;;this-cont