diff options
| author | Arun Isaac | 2025-01-23 01:36:51 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-01-23 01:36:51 +0000 |
| commit | 74dd2f7d054e3b531311ef8325886efd9c0a5d6e (patch) | |
| tree | 577a1c89fe79ceaafb76fb816934430900eed769 | |
| parent | 495e3a9ea5f842cb68718644842abd01d1231033 (diff) | |
| download | ravanan-74dd2f7d054e3b531311ef8325886efd9c0a5d6e.tar.gz ravanan-74dd2f7d054e3b531311ef8325886efd9c0a5d6e.tar.lz ravanan-74dd2f7d054e3b531311ef8325886efd9c0a5d6e.zip | |
* ravanan/command-line-tool.scm (command-line-binding->args): Handle
G-exp args when joining with item separator.
| -rw-r--r-- | ravanan/command-line-tool.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |