From 4863f0d4d1d05c3d602f68a1fb8c2932820eda40 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 19 Nov 2018 10:32:30 -0500 Subject: [PATCH] Added a DEBUG line --- scheme/cyclone/cps-opt-local-var-redux.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-opt-local-var-redux.scm b/scheme/cyclone/cps-opt-local-var-redux.scm index dc83e47f..056388fd 100644 --- a/scheme/cyclone/cps-opt-local-var-redux.scm +++ b/scheme/cyclone/cps-opt-local-var-redux.scm @@ -53,7 +53,9 @@ (equal? 1 (length (ast:lambda-args (cadr exp)))) (lvr:local-tail-call-only? (ast:lambda-body (car exp)) - (car (ast:lambda-args (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! + ) ;;(write `(tail-call-only? passed for ,exp)) (newline) ;;(write `(replace with ,(lvr:tail-calls->values ;; (car (ast:lambda-body (car exp)))