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

This commit is contained in:
riton
2025-03-24 02:06:48 +03:00
parent 052753e4a3
commit 4b96a87aaa

View File

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