From d5e4603e14af668c74db28a40c8dd4d5a0519b8a Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 4 Jun 2018 13:46:32 -0400 Subject: [PATCH] Added additional debugging --- scheme/cyclone/cps-optimizations.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index a4a91785..f9a34eea 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1770,7 +1770,7 @@ ((and (check-cont (cadr 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) (adbv:set-direct-rec-call! var #t)))) (else