diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-06 09:33:14 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-06 09:33:14 -0500 |
| commit | fda1d9d08349dfe103b7af3ef8f305c1701933f6 (patch) | |
| tree | 5cb896cf87d140df5bd05cb1f56566cfb0f17407 /src/core/unit.lisp | |
| parent | 8c94460d8c8f8b44ca9bcdebbf2906e84c969b19 (diff) | |
[refactor] containers have render bounds
Diffstat (limited to 'src/core/unit.lisp')
| -rw-r--r-- | src/core/unit.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
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))))) |