                                      ; not scientific
                                      :size n-items)))
 
-    ; STEVE remove or return column-widths
-    (do ((n-rows 2 (1+ n-rows))
-         (column-widths '() '()))
+    (do ((n-rows 2 (1+ n-rows)))
         ((>= n-rows max-visible-rows)
          (values max-visible-rows t))
       (let ((col-start-index 0)

                lengths-v truncated-p)))))

;; Returns number of rows and whether this truncates the entries.
(defun* lusty--compute-optimal-layout-inner (lengths-v separator-length)
  (let* ((n-items (length lengths-v))
         (max-visible-rows (1- (lusty-max-window-height)))
         (available-width (lusty-max-window-width))

               ;; All fits in a single row.
               (values 1 nil))
              (t
               (lusty--compute-optimal-row-count lengths-v
                                                 separator-length)))
      (let ((n-columns 0)
            (column-widths '()))

