diff --git a/wip-duuqnd/compiler.lisp b/wip-duuqnd/compiler.lisp index b58f85d..598bc77 100644 --- a/wip-duuqnd/compiler.lisp +++ b/wip-duuqnd/compiler.lisp @@ -47,8 +47,9 @@ (let ((else-label (genlabel "ELSE"))) (format-inst t "LDA RESULT") (format-inst t "BNE ~A" else-label) - ;; THEN branch + ;; The THEN branch (generate-code (branch-next node)) + ;; The ELSE branch (format t "~%~A:~%" else-label))) (defclass node-dotimes (node)