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

CPS optimization

Browse source
This commit is contained in:
Justin Ethier 2016-05-18 22:06:10 -04:00
parent cfc875f01f
commit e1d7ac548f
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -233,12 +233,14 @@
(cond (cond
; Core forms: ; Core forms:
((ast:lambda? exp) ((ast:lambda? exp)
;(let ((fnc (adb:get id))) (let* ((id (ast:lambda-id exp))
;; TODO: simplify if necessary (fnc (adb:get id)))
(if (adbf:simple fnc)
(opt:contract (caar (ast:lambda-body exp))) ;; Optimize-out the lambda
(ast:%make-lambda (ast:%make-lambda
(ast:lambda-id exp) (ast:lambda-id exp)
(ast:lambda-args exp) (ast:lambda-args exp)
(opt:contract (ast:lambda-body exp))));) (opt:contract (ast:lambda-body exp))))))
((const? exp) exp) ((const? exp) exp)
((ref? exp) exp) ((ref? exp) exp)
((prim? exp) exp) ((prim? exp) exp)
@ -267,6 +269,7 @@
(analyze-cps ast) (analyze-cps ast)
(trace:info "---------------- cps analysis db:") (trace:info "---------------- cps analysis db:")
(trace:info (adb:get-db)) (trace:info (adb:get-db))
;ast ;; DEBUGGING!!!
(opt:contract ast) (opt:contract ast)
) )
)) ))