mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Fix off-by-one in dump-dfg

Browse source 
* module/language/cps/dfg.scm (dump-dfg): Fix bug where the last
  continuation wasn't printed.
This commit is contained in:
Andy Wingo 2014-05-28 12:50:15 -04:00
parent 5062a56df0
commit 51177f3515
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/dfg.scm
View file

@ -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)))