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

WIP

Browse source
This commit is contained in:
Justin Ethier 2019-01-02 18:20:31 -05:00
parent 8f4dca2090
commit b0ede616d2
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cps-opt-analyze-call-graph.scm
View file

@ -16,6 +16,7 @@
(scheme cyclone cps-optimizations) (scheme cyclone cps-optimizations)
(scheme cyclone util) (scheme cyclone util)
(scheme cyclone pretty-print) (scheme cyclone pretty-print)
(srfi 2)
(srfi 69) (srfi 69)
))) )))
@ -178,6 +179,8 @@
;; TODO: store table and call these to test various vars: ;; TODO: store table and call these to test various vars:
(analyze:find-inlinable-vars (ast:sexp->ast sexp) '()) ;; Identify variables safe to inline (analyze:find-inlinable-vars (ast:sexp->ast sexp) '()) ;; Identify variables safe to inline
(pretty-print (inline-ok-from-call-graph? 'r$39 ht)) (pretty-print (inline-ok-from-call-graph? 'r$39 ht))
(newline)
(pretty-print (inline-ok-from-call-graph? 'zzz ht))
(newline) (newline)
) )