From 5879062693271a98b185aca40120a21c35581f51 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 5 Sep 2024 17:10:40 +0100
Subject: command-line-tool: Remove mutual recursion in collect-bindings.

*
ravanan/command-line-tool.scm (build-command)[input+type-tree+binding->command-line-binding]:
Remove mutual recursion with collect-bindings.
---
 ravanan/command-line-tool.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index 30ff451..8f269ff 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -250,13 +250,13 @@ G-expressions are inserted."
                     position
                     prefix
                     matched-type
-                    (collect-bindings
-                     (list (vector->list input)
-                           (make-list (vector-length input)
-                                      (assoc-ref type-tree "items"))
-                           (make-list (vector-length input)
-                                      (maybe-assoc-ref (just type-tree)
-                                                       "inputBinding"))))
+                    (append-map (lambda (input)
+                                  (input+type-tree+binding->command-line-binding
+                                   (list input
+                                         (assoc-ref type-tree "items")
+                                         (maybe-assoc-ref (just type-tree)
+                                                          "inputBinding"))))
+                                (vector->list input))
                     (maybe-assoc-ref binding "itemSeparator"))))
             (else
              (list (command-line-binding
-- 
cgit v1.2.3