summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--okur.lisp10
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"))