avoid infinite loop

lem-project · Dec 2, 2023 · bf66f01 · bf66f01
1 parent 9dbce7a
commit bf66f01
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/display/physical-line.lisp b/src/display/physical-line.lisp
@@ -198,9 +198,9 @@
                      :and physical-line-objects := '()
                      :for object := (pop objects)
                      :while object
-                     :do (cond ((<= view-width (+ total-width (object-width object)))
-                                (cond ((and (typep object 'text-object)
-                                            (< 1 (length (text-object-string object))))
+                     :do (cond ((and (typep object 'text-object)
+                                     (<= view-width (+ total-width (object-width object))))
+                                (cond ((< 1 (length (text-object-string object)))
                                        (setf objects (nconc (explode-object object) objects)))
                                       (t
                                        (push object objects)