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

Added stub

Browse source
This commit is contained in:
Justin Ethier 2018-09-12 17:17:31 -04:00
parent d45c44388f
commit c9fd208a72
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cyclone.scm
View file

@ -434,6 +434,10 @@
(trace:info "---------------- after wrap-mutables:") (trace:info "---------------- after wrap-mutables:")
(trace:info (ast:ast->pp-sexp input-program)) (trace:info (ast:ast->pp-sexp input-program))
;; Perform this analysis here since we need it later so it doesn't
;; make sense to execute it multiple times during CPS optimization
(analyze:find-known-lambdas input-program)
(set! input-program (set! input-program
(map (map
(lambda (expr) (lambda (expr)

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

@ -27,6 +27,7 @@
analyze-find-lambdas analyze-find-lambdas
analyze:find-named-lets analyze:find-named-lets
analyze:find-direct-recursive-calls analyze:find-direct-recursive-calls
analyze:find-known-lambdas
;analyze-lambda-side-effects ;analyze-lambda-side-effects
opt:add-inlinable-functions opt:add-inlinable-functions
opt:contract opt:contract
@ -1925,4 +1926,7 @@
exp)) exp))
) )
(define (analyze:find-known-lambdas exp)
'TODO)
)) ))