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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-05-25 16:20:10 +00:00
parent 7606eeeb5c
commit 85a74f3a1e
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -847,8 +847,27 @@
(with-fnc (ast:lambda-id (car exp)) (lambda (fnc)
(adbf:side-effects fnc))))
)
;(let ((if-fnc (adb:get/default (ast:lambda-body (car exp))
(trace:error `(DEBUG if inline candidate ,exp))
;(trace:error `(DEBUG2 ,(car (ast:lambda-body (car exp)))))
(let* ((new-exp (car (ast:lambda-body (cadr exp))))
(new-if (car (ast:lambda-body (car exp))))
; TODO: No, just replace K with values
;(new-if `(if ,(if->condition old-if)
; ,(cadr (if->then old-if))
; ,(cadr (if->else old-if))))
(old-k (car (ast:lambda-formals->list (car exp))))
(old-arg (car (ast:lambda-formals->list (cadr exp))))
)
(trace:error `(DEBUG if inline candidate
,exp
old-k:
,old-k
old-arg:
,old-arg
new-if:
,new-if
new-exp:
,new-exp
)))
;; TODO: behavior would be:
;; - simplify calling lambda's if to remove cont