diff options
| -rw-r--r-- | src/okur.lisp | 8 |
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) |