code bloğunda baştaki yeni satırı es geç

1 files changed, 3 insertions, 3 deletions

diff --git a/okur.lisp b/okur.lisp
index 583905f..67af1a2 100644
--- a/okur.lisp
+++ b/okur.lisp
@@ -124,10 +124,10 @@
 
 (defmethod ayrıştır ((okur okur) (tag (eql :code)))
   (with-slots (i metin blok-son blok-baş) okur
-    (let ((kod-baş (+ blok-baş 3)))
-      (assert (string= "```" metin :start2 blok-baş :end2 kod-baş))
+    (assert (string= "```" metin :start2 blok-baş :end2 (+ blok-baş 3)))
+    (let ((kod-baş (+ 1 (position #\Newline metin :start (+ blok-baş 3)))))
       (let ((kod (metin-parçası okur
-                                (- (search "```" metin :start2 kod-baş)
+                                (- (search "```" metin :from-end t :end2 blok-son)
                                    kod-baş)
                                 kod-baş)))
         (ebeveyn-node! :pre