Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +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 2)
(srfi 69) (srfi 69)
) )
(define trace:error write)
)) ))
;; TODO: ;; TODO:
@ -40,7 +39,7 @@
(lambda (v) (lambda (v)
(and-let* ((adb-var (adb:get/default v #f))) (and-let* ((adb-var (adb:get/default v #f)))
(when (not (adbv:inlinable adb-var)) (when (not (adbv:inlinable adb-var))
(trace:error `(cannot inline ,ref)) ;(trace:error `(cannot inline ,ref))
(return #f)) (return #f))
) )
) )
@ -55,7 +54,7 @@
;; exp - S-expression to scan ;; exp - S-expression to scan
;; vars - alist of current set of variables ;; vars - alist of current set of variables
(define (scan exp vars) (define (scan exp vars)
(trace:error `(DEBUG scan ,(ast:ast->pp-sexp exp))) ;(trace:error `(DEBUG scan ,(ast:ast->pp-sexp exp)))
(cond (cond
((ast:lambda? exp) ((ast:lambda? exp)
(for-each (for-each
@ -123,6 +122,7 @@
(cond-expand (cond-expand
(program (program
(define trace:error write)
(define sexp (define sexp
'( '(