From a30f01bf44396a62c6bb71a01d9d7153fca2940c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 16 Jun 2025 21:38:17 -0700 Subject: compiler: rename local variable in optimizer. * stdlib/optimize.tl (basic-blocks merge-jump-thunks): A local variable named bb is used for walking a list of basic blocks, and shadowing the self object, also named bb. It should be called bl. --- stdlib/optimize.tl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'stdlib/optimize.tl') diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 5a299a01..1599ad65 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -670,13 +670,13 @@ (hash (group-by [chain .insns cdr] candidates))) (dohash (insns bls hash) (let ((link (car (car bls).links))) - (each ((bb bb.list)) - (if (and (not (member bb bls)) - (null (cdr bb.links)) - (eq bb.next link) - (starts-with (cdr bb.insns) insns) - (eql (len bb.insns) (len insns))) - (push bb bls)))) + (each ((bl bb.list)) + (if (and (not (member bl bls)) + (null (cdr bl.links)) + (eq bl.next link) + (starts-with (cdr bl.insns) insns) + (eql (len bl.insns) (len insns))) + (push bl bls)))) (when (cdr bls) (whenlet ((keep (or (keep-if (op some @1.rlinks (op eq @@1) .next) bls) (list (car bls)))) -- cgit v1.2.3