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

Remove trace

Browse source
This commit is contained in:
Justin Ethier 2016-11-10 18:39:05 +00:00
parent adb0beb878
commit c2fd9d3383
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

@ -644,7 +644,7 @@
(define (inline-prim-call? exp ivars args) (define (inline-prim-call? exp ivars args)
(call/cc (call/cc
(lambda (return) (lambda (return)
(trace:error `(inline-ok? ,exp ,ivars ,args)) ;(trace:error `(inline-ok? ,exp ,ivars ,args))
(inline-ok? exp ivars args (list #f) return) (inline-ok? exp ivars args (list #f) return)
(return #t)))) (return #t))))