From 74dd2f7d054e3b531311ef8325886efd9c0a5d6e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Jan 2025 01:36:51 +0000
Subject: command-line-tool: Handle G-exp args when joining with item
 separator.

* ravanan/command-line-tool.scm (command-line-binding->args): Handle
G-exp args when joining with item separator.
---
 ravanan/command-line-tool.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index a56241b..8c1e25a 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -331,7 +331,8 @@ in which the G-expressions are inserted."
            (append (maybe->list prefix)
                    (from-maybe
                     (maybe-let* ((item-separator (command-line-binding-item-separator binding)))
-                      (just (list (string-join args item-separator))))
+                      (just (list #~(string-join (list #$@args)
+                                                 #$item-separator))))
                     args))))))
      (else
       (append (maybe->list prefix)
-- 
cgit v1.2.3