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

Let comparison take any IR-DATA

Browse source
This commit is contained in:
John Lorentzson 2025-07-31 22:14:36 +02:00
parent 64de7f64e5
commit 5c3bccd48d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
user-side-compiler/middle/compile-node-to-ir.lisp
View file

@ -77,7 +77,7 @@
output)) output))
(defmethod compile-node ((node node-conditional) builder) (defmethod compile-node ((node node-conditional) builder)
(let* ((test-ir (the ir-result (compile-node (test-node node) builder))) (let* ((test-ir (the ir-data (compile-node (test-node node) builder)))
(else-exists-p (not (null (else-node node)))) (else-exists-p (not (null (else-node node))))
(then-iblock (make-instance 'iblock :name "then")) (then-iblock (make-instance 'iblock :name "then"))
(else-iblock (make-instance 'iblock :name "else")) (else-iblock (make-instance 'iblock :name "else"))