diff options
Diffstat (limited to 'okur.lisp')
| -rw-r--r-- | okur.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -124,10 +124,10 @@ (defmethod ayrıştır ((okur okur) (tag (eql :code))) (with-slots (i metin blok-son blok-baş) okur - (let ((kod-baş (+ blok-baş 3))) - (assert (string= "```" metin :start2 blok-baş :end2 kod-baş)) + (assert (string= "```" metin :start2 blok-baş :end2 (+ blok-baş 3))) + (let ((kod-baş (+ 1 (position #\Newline metin :start (+ blok-baş 3))))) (let ((kod (metin-parçası okur - (- (search "```" metin :start2 kod-baş) + (- (search "```" metin :from-end t :end2 blok-son) kod-baş) kod-baş))) (ebeveyn-node! :pre |