diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-06-19 06:42:53 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-06-19 06:42:53 -0700 |
| commit | c03f27f7d282dffb35b1746fd067ab24e0354421 (patch) | |
| tree | ca8bebc741e18a2fe5c02f5dbd30d2306cff9f2f | |
| parent | 5b9727bbd85793fe9fa280b621ca2af7f25a7417 (diff) | |
| download | txr-c03f27f7d282dffb35b1746fd067ab24e0354421.tar.gz txr-c03f27f7d282dffb35b1746fd067ab24e0354421.tar.bz2 txr-c03f27f7d282dffb35b1746fd067ab24e0354421.zip | |
compiler: unnecessary test in link-graph.
* stdlib/optimize.tl (basic-blocks link-graph): Remove
unnecessary null test of nxbl inside a when that is
conditional on it not being null.
| -rw-r--r-- | stdlib/optimize.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 2e0b2aa5..906abdb8 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -179,8 +179,7 @@ (set bl.nojoin t))) (when (and nxbl link-next) (set bl.next nxbl) - (if nxbl - (set nxbl.prev bl)) + (set nxbl.prev bl) (pushnew nxbl bl.links)) (each ((nx bl.links)) (pushnew bl nx.rlinks))))) |