From 0a7247a382d3152be5fe4203312a85d0822c9e56 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 2 Mar 2021 07:31:21 -0800
Subject: compiler: unmatchable pattern in jump threading.

* share/txr/stdlib/optimize.tl (basic-blocks
thread-jumps-block): The two accidental occurrences of @reg
will never match each other: rename one to @dn.
---
 share/txr/stdlib/optimize.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl
index e4a6e225..02354e25 100644
--- a/share/txr/stdlib/optimize.tl
+++ b/share/txr/stdlib/optimize.tl
@@ -266,7 +266,7 @@
     (while* (nequal ninsn insn)
       (set insn ninsn
            ninsn (match-case insn
-                   (@(require (if @(as reg (d @reg)) @jlabel)
+                   (@(require (if @(as reg (d @dn)) @jlabel)
                               (not (memqual reg bb.lt-dregs)))
                     nil)
                    ((if (t 0) @jlabel)
-- 
cgit v1.2.3