yeni blok TODO

1 files changed, 4 insertions, 2 deletions

diff --git a/okur.lisp b/okur.lisp
index 67af1a2..759ac16 100644
--- a/okur.lisp
+++ b/okur.lisp
@@ -48,11 +48,13 @@
     (unless (son? okur (blok-son okur))
       (with-slots (i uzunluk metin blok-son blok-baş) okur
         (let ((önceki-son blok-son)
-              (yeni-son (search blok-sonu metin :start2 blok-son)))
+              (yeni-son (search blok-sonu metin :start2 blok-son))
+              ;; TODO kod bloğunun içinde yeni blok oluşmadan 2 yeni satır olabilir
+              )
           (setf blok-son (if (numberp yeni-son)
                              (+ 2 yeni-son)
                              uzunluk)
-                blok-baş önceki-son
+                blok-baş önceki-son ;; TODO blok başındaki boşluk ve yeni satırları geç
                 i blok-baş))))))
 
 (defmethod boşluk-yut ((okur okur))