fix: clojure function

Author: jcs090218

treesit-fold-parsers.el

@@ -181,7 +181,9 @@
     (str_lit  . treesit-fold-range-seq)
     (comment
      . (lambda (node offset)
-         (treesit-fold-range-line-comment node offset ";;")))))
+         (treesit-fold-range-line-comment node
+                                          (treesit-fold--cons-add offset '(0 . -1))
+                                          ";;")))))
 
 (defun treesit-fold-parsers-cmake ()
   "Rule set for CMake."

treesit-fold.el

@@ -777,8 +777,8 @@ more information."
 
 For arguments NODE and OFFSET, see function `treesit-fold-range-seq' for
 more information."
-  (when-let* ((param-node (car (treesit-fold-find-children node "vec_lit")))
-              (next-node (treesit-node-next-sibling param-node))
+  (when-let* ((name-node (nth 1 (treesit-fold-find-children node "sym_lit")))
+              (next-node (treesit-node-next-sibling name-node))
               (beg (treesit-node-start next-node))
               (end (1- (treesit-node-end node))))
     (unless treesit-fold-on-next-line  ; display nicely