diff options
| -rw-r--r-- | stdlib/optimize.tl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 908b7e0d..3ca7f07c 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -74,11 +74,11 @@ (:postinit (bb) (let* ((insns (early-peephole (dedup-labels (cons bb.start bb.insns)))) - (cuts (merge [where symbolp insns] - [where [andf consp - (op memq (car @1) bb.jump-ops)] - (cons nil insns)])) - (parts (partition insns cuts)) + (parts (partition-if (lambda (prev next) + (or (symbolp next) + (and (consp prev) + (memq (car prev) bb.jump-ops)))) + insns)) (lparts (mapcar [iff [chain car symbolp] use (op cons (gensym))] |