From 501da2341edf342798b2a92d6d6da7f091e39dc7 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 8 May 2025 19:33:31 +0200 Subject: [PATCH] Bind *LABEL-COUNTER* to 0 at the start of compiling --- wip-duuqnd/user-side-compiler/high-level.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp index 4814f57..e69d6b6 100644 --- a/wip-duuqnd/user-side-compiler/high-level.lisp +++ b/wip-duuqnd/user-side-compiler/high-level.lisp @@ -112,7 +112,8 @@ (produce-instruction 'inst-tax-implied))) (defmethod compile-starting-at ((node node)) - (let ((*compile-result* '())) + (let ((*compile-result* '()) + (*label-counter* 0)) (compile-node node) (nreverse *compile-result*)))