From 5c3bccd48d18c8c0efb5dccfdb69129b8c6ddb38 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 31 Jul 2025 22:14:36 +0200 Subject: [PATCH] Let comparison take any IR-DATA --- user-side-compiler/middle/compile-node-to-ir.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/user-side-compiler/middle/compile-node-to-ir.lisp b/user-side-compiler/middle/compile-node-to-ir.lisp index 3e78bc6..e20a8d0 100644 --- a/user-side-compiler/middle/compile-node-to-ir.lisp +++ b/user-side-compiler/middle/compile-node-to-ir.lisp @@ -77,7 +77,7 @@ output)) (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)))) (then-iblock (make-instance 'iblock :name "then")) (else-iblock (make-instance 'iblock :name "else"))