paragrafın sonundaki yeni satırları alma

2025-03-23 22:38:15 +03:00
parent 0cd4282f0e
commit 041740e761
1 changed files with 3 additions and 1 deletions
--- a/okur.lisp
+++ b/okur.lisp
@@ -187,7 +187,9 @@
                             (pushla-ve-ayrıştır :b "**")
                             (pushla-ve-ayrıştır :i "*")))
                    (t (incf i)))
-              :finally (when (/= baş i)
+              :finally (loop :while (char= #\Newline (char metin (- i 1)))
+                             :do (decf i))
+                       (when (/= baş i)
                         (push (metin-parçası okur (- i baş) baş) elementler)))
        (ebeveyn-node! :p (reverse elementler))))))