diff options
| author | Arun Isaac | 2024-09-03 18:15:33 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-09-05 16:22:50 +0100 |
| commit | 00f39a642c0eeb6f9556b319f8f4f9fc30dc42c2 (patch) | |
| tree | e12eebe1b7327a949334f1e1d7f2becac247afce | |
| parent | fe5b482b478261d32870a3a7e2cdb7ef0e78f67b (diff) | |
| download | ravanan-00f39a642c0eeb6f9556b319f8f4f9fc30dc42c2.tar.gz ravanan-00f39a642c0eeb6f9556b319f8f4f9fc30dc42c2.tar.lz ravanan-00f39a642c0eeb6f9556b319f8f4f9fc30dc42c2.zip | |
command-line-tool: Report ID of input whose type is not specified.
* ravanan/command-line-tool.scm (collect-input-files): Report ID of input whose
type is not specified.
| -rw-r--r-- | ravanan/command-line-tool.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 391ed81..d2281ba 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -322,7 +322,7 @@ basename of the original path, and not the store-interned path." (types (map (lambda (formal-input) (let ((id (assoc-ref formal-input "type"))) (or (assoc-ref formal-input "type") - (error "Type of input not specified" id)))) + (error "Type of input ~a not specified" id)))) formal-inputs))) (append-map (lambda (input type-tree) ;; Check type. |