From 6f0b19720d6be8af4276a32a332ba43a46a291b4 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Fri, 28 Mar 2025 11:47:27 +0100
Subject: [PATCH] Add method for compiling nodes following the NEXT chain

---
 wip-duuqnd/compiler.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/wip-duuqnd/compiler.lisp b/wip-duuqnd/compiler.lisp
index 8d4c7eb..415c672 100644
--- a/wip-duuqnd/compiler.lisp
+++ b/wip-duuqnd/compiler.lisp
@@ -91,6 +91,11 @@
   (format-inst t "PLA")
   (format-inst t "TAX"))
 
+(defmethod compile-starting-at ((node node))
+  (generate-code node)
+  (unless (null (next node))
+    (compile-starting-at (next node))))
+
 (defun make-call (callee args)
   (let ((arguments
           (loop :for (constp value) :in args