From fda1d9d08349dfe103b7af3ef8f305c1701933f6 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 6 Jul 2022 09:33:14 -0500 Subject: [refactor] containers have render bounds --- src/core/unit.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/core/unit.lisp') diff --git a/src/core/unit.lisp b/src/core/unit.lisp index fb02f08..e93ba56 100644 --- a/src/core/unit.lisp +++ b/src/core/unit.lisp @@ -21,11 +21,10 @@ in this application." (or (cached-application unit) (setf (cached-application unit) (labels ((rec (u) - (when-let (c (unit-container u)) - (etypecase c - (application c) - (unit (rec c)) - (null nil))))) + (etypecase u + (application u) + (unit (rec (unit-container u))) + (nil nil)))) (rec unit))))) -- cgit v1.2.3