Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 19:56:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove debug trace

Browse source
This commit is contained in:
Justin Ethier 2018-10-01 12:26:11 -04:00
parent ad6e2c5f78
commit 54e32106f5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/cps-optimizations.sld
View file

@ -2035,7 +2035,7 @@
(define (prim-call/cont? exp) (define (prim-call/cont? exp)
(let ((result (and (app? exp) (let ((result (and (app? exp)
(prim:cont? (car exp))))) (prim:cont? (car exp)))))
(trace:info `(prim-call/cont? ,exp ,result)) ;(trace:info `(prim-call/cont? ,exp ,result))
result)) result))
(define (found exp . sym) (define (found exp . sym)