dipnot listesi paragraf içinde olmamalı

1 files 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)