From 041740e761f16bccc24701b2af26c840c9750e77 Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Sun, 23 Mar 2025 22:38:15 +0300
Subject: =?UTF-8?q?paragraf=C4=B1n=20sonundaki=20yeni=20sat=C4=B1rlar?=
 =?UTF-8?q?=C4=B1=20alma?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 okur.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))))))
 
-- 
cgit v1.2.3