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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-06-06 18:37:18 -04:00
parent c4c22cfad8
commit 0d83580fd5
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -711,7 +711,7 @@
;; c-compile-app : app-exp (string -> void) -> string ;; c-compile-app : app-exp (string -> void) -> string
(define (c-compile-app exp append-preamble cont trace cps?) (define (c-compile-app exp append-preamble cont trace cps?)
;(trace:debug `(c-compile-app: ,exp)) (trace:info `(c-compile-app: ,exp ,trace))
(let (($tmp (mangle (gensym 'tmp)))) (let (($tmp (mangle (gensym 'tmp))))
(let* ((args (app->args exp)) (let* ((args (app->args exp))
(fun (app->fun exp))) (fun (app->fun exp)))
@ -719,8 +719,9 @@
((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)))
TODO: what to put here? only want this for the direct rec calls... (tagged-list? '%closure-ref fun)
(equal? (car exp) (cdr trace)) (equal? (cadr fun) (cdr trace)) ;; Needed?
(equal? (car args) (cdr trace))
) )
(let* ((cgen (let* ((cgen
(c-compile-args (c-compile-args