paragrafın sonundaki yeni satırları alma

1 files changed, 3 insertions, 1 deletions

diff --git a/okur.lisp b/okur.lisp
index 639e780..57da9d3 100644
--- 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))))))