Fixup some stuff

This commit is contained in:
2024-10-30 15:16:54 +00:00
parent d357964e2f
commit de4c5bbd53
2 changed files with 1 additions and 25 deletions

View File

@@ -33,7 +33,7 @@
(col (get-column x))
(col-top (subseq col 0 y))
(col-bottom (subseq col (+ y 1))))
(some #'id
(some #'identity
(mapcar (lambda (x) (every lt-tree? x))
(list row-left row-right col-top col-bottom))))))