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

Remove debug code

Browse source
This commit is contained in:
Justin Ethier 2021-03-14 21:09:12 -04:00
parent 2ddabc9494
commit d944eed23c
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/cgen.sld
View file

@ -1835,7 +1835,7 @@
;; Generate code to unpack args into locals w/expected names
(for-each
(lambda (scm-arg arg)
(trace:error `(DEBUG ,scm-arg ARG ,arg))
;;(trace:error `(DEBUG ,scm-arg ARG ,arg))
(let ((var (adb:get/default scm-arg #f)))
(when (and var
(> (adbv:ref-count var) 0)