[nongnu] elpa/treesit-fold 959191660b 115/417: Simplify

[ELPA Syncer]

branch: elpa/treesit-fold
commit 959191660b18d1f75316f3e386a5bf36d9de3c3f
Author: Jen-Chieh <jcs090218@gmail.com>
Commit: Jen-Chieh <jcs090218@gmail.com>

    Simplify
---
 tree-sitter-fold.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/tree-sitter-fold.el b/tree-sitter-fold.el
index 446427aa6b..0854903706 100644
--- a/tree-sitter-fold.el
+++ b/tree-sitter-fold.el
@@ -422,14 +422,12 @@ more information."
 
 For arguments NODE and OFFSET, see function `tree-sitter-fold-range-seq' for
 more information."
-  (let* ((children (tsc-count-children node))
-         (result nil)
-         (last_bracket (tsc-get-nth-child node (- children 1)))
-         (first_bracket (tsc-get-nth-child node 2)))
-    (setq result (cons
-                  (tsc-node-start-position first_bracket)
-                  (+ 1 (tsc-node-start-position last_bracket))))
-    (tree-sitter-fold-util--cons-add result offset)))
+  (when-let* ((children (tsc-count-children node))
+              (last_bracket (tsc-get-nth-child node (- children 1)))
+              (first_bracket (tsc-get-nth-child node 2))
+              (beg (tsc-node-start-position first_bracket))
+              (end (1+ (tsc-node-start-position last_bracket))))
+    (tree-sitter-fold-util--cons-add (cons beg end) offset)))
 
 (provide 'tree-sitter-fold)
 ;;; tree-sitter-fold.el ends here