summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--okur.lisp4
1 files changed, 3 insertions, 1 deletions
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))))))