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"))