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

Fix import processing, remove trace logs

Browse source
This commit is contained in:
Justin Ethier 2019-01-03 16:32:53 -05:00
parent 8cd73b1d19
commit 0a47e9eaca
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cps-opt-analyze-call-graph.scm
View file

@ -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
'(