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 - opt:contract

Browse source
This commit is contained in:
Justin Ethier 2016-05-17 00:04:17 -04:00
parent b606ccf150
commit 7dce420886
1 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -228,8 +228,32 @@
)))
;; Perform contraction phase of CPS optimizations
(define (opt:contract ast)
ast) ;'TODO)
(define (opt:contract exp)
(cond
; Core forms:
((ast:lambda? exp)
;(let ((fnc (adb:get id)))
;; TODO: simplify if necessary
(ast:%make-lambda
(ast:lambda-id exp)
(ast:lambda-args exp)
(ast:lambda-body exp)));)
((ref? exp) exp)
((const? exp) exp)
((define? exp)
`(define ,(opt:contract (define->var exp))
,(opt:contract (define->exp exp))))
((set!? exp)
`(set! ,(opt:contract (set!->var exp))
,(opt:contract (set!->exp exp))))
((if? exp) `(if ,(opt:contract (if->condition exp))
,(opt:contract (if->then exp))
,(opt:contract (if->else exp))))
; Application:
((app? exp)
(map (lambda (e) (opt:contract e)) exp))
(else
(error "CPS optimize [1] - Unknown expression" exp))))
(define (analyze-cps exp)
(analyze exp -1) ;; Top-level is lambda ID -1