From 435bbb3a95bcf84a78b6f2412d83402f9efc5919 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 19 Nov 2018 17:10:55 -0500 Subject: [PATCH] Revert debug code --- scheme/cyclone/cps-opt-local-var-redux.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-opt-local-var-redux.scm b/scheme/cyclone/cps-opt-local-var-redux.scm index 056388fd..067c014a 100644 --- a/scheme/cyclone/cps-opt-local-var-redux.scm +++ b/scheme/cyclone/cps-opt-local-var-redux.scm @@ -54,7 +54,7 @@ (lvr:local-tail-call-only? (ast:lambda-body (car exp)) (car (ast:lambda-args (car exp)))) - (tagged-list? 'Cyc-seq (car (ast:lambda-body (cadr exp)))) ;; TODO: DEBUG line, remove this once it works! + ;(tagged-list? 'Cyc-seq (car (ast:lambda-body (cadr exp)))) ;; TODO: DEBUG line, remove this once it works! ) ;;(write `(tail-call-only? passed for ,exp)) (newline) ;;(write `(replace with ,(lvr:tail-calls->values