From 6a85378726006c8d53b299fd677df49b5e129f70 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 22 Apr 1990 02:50:12 +0000
Subject: [PATCH] Changed note-number-stack-tns to actually iterrate across the
 tns instead of just spinning forever marking the same tn as being on the
 number stack.

---
 compiler/represent.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index e87eda6f7..71f9f7c65 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -233,7 +233,7 @@
 (defun note-number-stack-tn (refs)
   (declare (type (or tn-ref null) refs))
   
-  (do ((ref refs (tn-ref-next refs)))
+  (do ((ref refs (tn-ref-next ref)))
       ((null ref))
     (let* ((lambda (block-lambda
 		    (ir2-block-block
-- 
GitLab