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

Added additional debugging

Browse source
This commit is contained in:
Justin Ethier 2018-06-04 13:46:32 -04:00
parent ff94309bcc
commit d5e4603e14
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

@ -1770,7 +1770,7 @@
((and ((and
(check-cont (cadr exp)) (check-cont (cadr exp))
(check-args (cddr exp))) (check-args (cddr exp)))
(trace:info `("direct recursive call" ,exp)) (trace:info `("direct recursive call" ,exp ,(cadr exp) ,(check-cont (cadr exp))))
(with-var! def-sym (lambda (var) (with-var! def-sym (lambda (var)
(adbv:set-direct-rec-call! var #t)))) (adbv:set-direct-rec-call! var #t))))
(else (else