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

Remove debug output

Browse source
This commit is contained in:
Justin Ethier 2016-06-04 04:27:47 -04:00
parent 0339833541
commit bafa80f63b
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

@ -91,7 +91,7 @@
(define (adbv-set-assigned-value-helper! sym var value) (define (adbv-set-assigned-value-helper! sym var value)
(define (update-lambda-atv! syms value) (define (update-lambda-atv! syms value)
(trace:error `(update-lambda-atv! ,syms ,value)) ;(trace:error `(update-lambda-atv! ,syms ,value))
(cond (cond
((ast:lambda? value) ((ast:lambda? value)
(let ((id (ast:lambda-id value))) (let ((id (ast:lambda-id value)))