From 1e26cd3056be20878b1bf27c9a8808c594876ab2 Mon Sep 17 00:00:00 2001 From: riton Date: Tue, 1 Apr 2025 03:13:56 +0300 Subject: =?UTF-8?q?dipnot=20listesi=20paragraf=20i=C3=A7inde=20olmamal?= =?UTF-8?q?=C4=B1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/okur.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/okur.lisp b/src/okur.lisp index 33ad8a8..547e78d 100644 --- a/src/okur.lisp +++ b/src/okur.lisp @@ -268,10 +268,10 @@ :finally (loop :while (char= #\Newline (char metin (- i 1))) :do (decf i)) (when (/= baş i) - (push (metin-parçası okur (- i baş) baş) elementler)) - (when (not (null dipnotlar)) - (push (ebeveyn-node! :ol (reverse dipnotlar)) elementler))) - (ebeveyn-node! :p (reverse elementler)))))) + (push (metin-parçası okur (- i baş) baş) elementler))) + (if (not (null dipnotlar)) + (ebeveyn-node! :ol (reverse dipnotlar)) + (ebeveyn-node! :p (reverse elementler))))))) (defmethod blok-ayrıştır ((okur okur)) (when (sonraki-blok okur) -- cgit v1.2.3