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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-05-25 18:54:55 -04:00
parent 7cdabc02b6
commit ce6b24cc10
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cps-optimizations.sld
View file

@ -857,18 +857,20 @@
(with-fnc (ast:lambda-id (car exp)) (lambda (fnc) (with-fnc (ast:lambda-id (car exp)) (lambda (fnc)
(adbf:side-effects fnc)))) (adbf:side-effects fnc))))
) )
(trace:error `(DEBUG2 ,exp)) ;(trace:error `(DEBUG2 ,exp))
(let* ((new-exp (car (ast:lambda-body (cadr exp)))) (let* ((new-exp (car (ast:lambda-body (cadr exp))))
(old-if (car (ast:lambda-body (car exp)))) (old-if (car (ast:lambda-body (car exp))))
; TODO: what about nested if's? may need another pass above to make sure ; TODO: what about nested if's? may need another pass above to make sure
;; the if is simple enough to inline ;; the if is simple enough to inline
TODO: can logic from inlinable-top-level-lambda? be repurposed to
scan old-if to make sure everything is inlinable???
(new-if `(Cyc-if ,(if->condition old-if) (new-if `(Cyc-if ,(if->condition old-if)
,(cadr (if->then old-if)) ,(cadr (if->then old-if))
,(cadr (if->else old-if)))) ,(cadr (if->else old-if))))
(old-k (car (ast:lambda-formals->list (car exp)))) (old-k (car (ast:lambda-formals->list (car exp))))
(old-arg (car (ast:lambda-formals->list (cadr exp)))) (old-arg (car (ast:lambda-formals->list (cadr exp))))
) )
(trace:error `(DEBUG if inline candidate #;(trace:error `(DEBUG if inline candidate
,exp ,exp
old-k: old-k:
,old-k ,old-k