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

Only generate call history for top-level (or library) defines

Browse source
This commit is contained in:
Justin Ethier 2016-03-03 22:38:33 -05:00
parent 38099bb3c6
commit 47f43d54c0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/cgen.sld
View file

@ -1253,7 +1253,9 @@
"") ; No varargs, skip "") ; No varargs, skip
(c:serialize (c:serialize
(c:append (c:append
(c-code (st:->code trace)) (c-code
;; Only trace when entering initial defined function
(if has-closure? "" (st:->code trace)))
body) body)
" ") " ")
"; \n" "; \n"