From 0a47e9eaca543fe00f5cb4f893c75ef262770465 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 3 Jan 2019 16:32:53 -0500 Subject: [PATCH] Fix import processing, remove trace logs --- scheme/cyclone/cps-opt-analyze-call-graph.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/cyclone/cps-opt-analyze-call-graph.scm b/scheme/cyclone/cps-opt-analyze-call-graph.scm index 8d57a09b..6ad0a0e1 100644 --- a/scheme/cyclone/cps-opt-analyze-call-graph.scm +++ b/scheme/cyclone/cps-opt-analyze-call-graph.scm @@ -20,7 +20,6 @@ (srfi 2) (srfi 69) ) - (define trace:error write) )) ;; TODO: @@ -40,7 +39,7 @@ (lambda (v) (and-let* ((adb-var (adb:get/default v #f))) (when (not (adbv:inlinable adb-var)) - (trace:error `(cannot inline ,ref)) + ;(trace:error `(cannot inline ,ref)) (return #f)) ) ) @@ -55,7 +54,7 @@ ;; exp - S-expression to scan ;; vars - alist of current set of variables (define (scan exp vars) - (trace:error `(DEBUG scan ,(ast:ast->pp-sexp exp))) + ;(trace:error `(DEBUG scan ,(ast:ast->pp-sexp exp))) (cond ((ast:lambda? exp) (for-each @@ -123,6 +122,7 @@ (cond-expand (program + (define trace:error write) (define sexp '(