bug fix, repl de eski tanımı kullandığı için gözden kaçmış

1 files changed, 6 insertions, 4 deletions

diff --git a/okur.lisp b/okur.lisp
index 57da9d3..583905f 100644
--- a/okur.lisp
+++ b/okur.lisp
@@ -207,11 +207,13 @@
                (paragraf-ayrıştır okur)))))))
 
 (defmethod markdown-ayrıştır ((okur okur))
-  (let ((blok-node (blok-ayrıştır okur)))
+  (labels ((öz (okur)
+             (let ((blok-node (blok-ayrıştır okur)))
+               (if (null blok-node)
+                   nil
+                   (cons blok-node (öz okur))))))
     (ebeveyn-node! :div
-                   (if (null blok-node)
-                       nil
-                       (cons blok-node (tümünü-ayrıştır okur))))))
+                   (öz okur))))
 
 
 (defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md"))