From 887c52b5e0426139ef43baed499ce8d6dc4903bb Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 11 Dec 2021 01:31:33 -0800
Subject: compiler: tweak in basic block debug print.

* stdlib/optimize (basic-block print): Print the label of the
next block, rather than the block itself. This reduces the
verbosity during debugging.
---
 stdlib/optimize.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl
index 01105235..9c94d445 100644
--- a/stdlib/optimize.tl
+++ b/stdlib/optimize.tl
@@ -47,7 +47,7 @@
                             insns ,bl.insns
                             links ,(mapcar .label bl.links)
                             rlinks ,(mapcar .label bl.rlinks)
-                            next ,bl.next) stream)))
+                            next ,bl.next.?label) stream)))
 
   (defstruct (basic-blocks insns lt-dregs symvec) nil
     insns
-- 
cgit v1.2.3