From 137764ba7b6c8a63597669d7310777f72cc5249c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 30 Sep 2021 07:07:10 -0700 Subject: compiler: cosmetic: merge set assignments. * stdlib/optimize.tl (basic-blocks join-block): Merge set forms into one. (basic-blocks elim-dead-code): Likewise. --- stdlib/optimize.tl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 628a5317..33ed898b 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -105,11 +105,11 @@ (:method join-block (bb bl nxbl) (when (eql (car nxbl.insns) nxbl.label) (pop nxbl.insns)) - (set bl.insns (append bl.insns nxbl.insns)) - (set nxbl.insns nil) - (set bl.next nxbl.next) - (set bl.links nxbl.links) - (set bb.list (remq nxbl bb.list)) + (set bl.insns (append bl.insns nxbl.insns) + nxbl.insns nil + bl.next nxbl.next + bl.links nxbl.links + bb.list (remq nxbl bb.list)) (del [bb.hash nxbl.label]) (each ((nx bl.links)) (upd nx.rlinks (remq nxbl)) @@ -502,8 +502,8 @@ (defmeth basic-blocks elim-dead-code (bb) (each ((bl bb.list)) - (set bl.links nil) - (set bl.rlinks nil)) + (set bl.links nil + bl.rlinks nil)) bb.(link-graph) (let* ((visited (hash :eq-based))) (labels ((visit (bl) -- cgit v1.2.3