From 51177f351580884df2926d82d9da23d74e32edea Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 28 May 2014 12:50:15 -0400 Subject: [PATCH] Fix off-by-one in dump-dfg * module/language/cps/dfg.scm (dump-dfg): Fix bug where the last continuation wasn't printed. --- module/language/cps/dfg.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/dfg.scm b/module/language/cps/dfg.scm index 7fc8ed4af..460843c25 100644 --- a/module/language/cps/dfg.scm +++ b/module/language/cps/dfg.scm @@ -907,7 +907,7 @@ body continuation in the prompt." (define (idx->var idx) (+ idx min-var)) (let lp ((label (dfg-min-label dfg))) - (when (< label (dfg-max-label dfg)) + (when (<= label (dfg-max-label dfg)) (let ((cont (vector-ref (dfg-cont-table dfg) (label->idx label)))) (when cont (unless (equal? (lookup-predecessors label dfg) (list (1- label))) -- 2.20.1