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

2025-03-24 02:06:48 +03:00
parent 052753e4a3
commit 4b96a87aaa
1 changed files with 6 additions and 4 deletions
--- 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"))