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