diff options
| author | Arun Isaac | 2025-11-29 03:29:43 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-11-29 03:29:43 +0000 |
| commit | 5616781558901cde264f3a29bb5de816f26a2454 (patch) | |
| tree | 5890daff0756c8163b66af09385c99a9f4488005 | |
| parent | f5eabe52b6eb67e0eaf8abd4266c1f9618ccfc1c (diff) | |
| download | ravanan-5616781558901cde264f3a29bb5de816f26a2454.tar.gz ravanan-5616781558901cde264f3a29bb5de816f26a2454.tar.lz ravanan-5616781558901cde264f3a29bb5de816f26a2454.zip | |
work/command-line-tool: Do not add defaults.
Defaults have already been added by the scheduler.
| -rw-r--r-- | ravanan/work/command-line-tool.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm index 0d9bcea..e82a42e 100644 --- a/ravanan/work/command-line-tool.scm +++ b/ravanan/work/command-line-tool.scm @@ -434,9 +434,11 @@ be defined in the context in which the G-expressions are inserted." (and (assoc "inputBinding" formal-input) (let ((id (assoc-ref formal-input "id"))) (list (list id) - (or (assoc-ref inputs id) - (assoc-ref formal-input "default") - 'null) + ;; The inputs alist has been fully resolved + ;; with default and null values. It is + ;; guaranteed to have a mapping for every input + ;; id. + (assoc-ref inputs id) (or (assoc-ref formal-input "type") (user-error "Type of input ~a not specified" id)) |