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

Move NODE-CONDITIONAL definition to proper place

Browse source
This commit is contained in:
John Lorentzson 2025-06-19 15:07:23 +02:00
parent 2b94745734
commit 61ea8b3773
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
wip-duuqnd/user-side-compiler/high-level.lisp
View file

@ -81,6 +81,11 @@
(print-unreadable-object (object stream :type t :identity t) (print-unreadable-object (object stream :type t :identity t)
(format stream "~A~A" (callee object) (arguments object)))) (format stream "~A~A" (callee object) (arguments object))))
(defclass node-conditional (node)
((%test :accessor test-node :initarg :test)
(%then :accessor then-node :initarg :then)
(%else :accessor else-node :initarg :else :initform nil)))
(defclass node-branch (node) (defclass node-branch (node)
((%branch-next :accessor branch-next :initarg :branch-next))) ((%branch-next :accessor branch-next :initarg :branch-next)))

5
wip-duuqnd/user-side-compiler/parser.lisp
View file

@ -270,11 +270,6 @@ parser's debug output.")
:stop-ref (transform n 'reference) :stop-ref (transform n 'reference)
:loopee-node (transform code 'node))) :loopee-node (transform code 'node)))
(defclass node-conditional (node)
((%test :accessor test-node :initarg :test)
(%then :accessor then-node :initarg :then)
(%else :accessor else-node :initarg :else :initform nil)))
(defmethod node-nexts ((node node-conditional)) (defmethod node-nexts ((node node-conditional))
(append (list (test-node node) (then-node node)) (append (list (test-node node) (then-node node))
(unless (null (else-node node)) (unless (null (else-node node))