From b0ede616d2fd12dc1403bc20b88256b2c90f0ba9 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 2 Jan 2019 18:20:31 -0500 Subject: [PATCH] WIP --- cps-opt-analyze-call-graph.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/cps-opt-analyze-call-graph.scm b/cps-opt-analyze-call-graph.scm index b8c88bbd..026a06dc 100644 --- a/cps-opt-analyze-call-graph.scm +++ b/cps-opt-analyze-call-graph.scm @@ -16,6 +16,7 @@ (scheme cyclone cps-optimizations) (scheme cyclone util) (scheme cyclone pretty-print) + (srfi 2) (srfi 69) ))) @@ -178,6 +179,8 @@ ;; TODO: store table and call these to test various vars: (analyze:find-inlinable-vars (ast:sexp->ast sexp) '()) ;; Identify variables safe to inline (pretty-print (inline-ok-from-call-graph? 'r$39 ht)) +(newline) +(pretty-print (inline-ok-from-call-graph? 'zzz ht)) (newline) )