Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Add method for compiling nodes following the NEXT chain

Browse source
This commit is contained in:
John Lorentzson 2025-03-28 11:47:27 +01:00
parent dc80e6e1e3
commit 6f0b19720d
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
wip-duuqnd/compiler.lisp
View file

@ -91,6 +91,11 @@
(format-inst t "PLA") (format-inst t "PLA")
(format-inst t "TAX")) (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) (defun make-call (callee args)
(let ((arguments (let ((arguments
(loop :for (constp value) :in args (loop :for (constp value) :in args