diff options
| -rw-r--r-- | stdlib/optimize.tl | 14 |
1 files changed, 7 insertions, 7 deletions
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)))) |