diff options
| author | Arun Isaac | 2021-05-15 20:25:36 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-05-15 20:25:36 +0530 |
| commit | a36007a22fa963ac3d88c7b9d2c57e641d1ac6c0 (patch) | |
| tree | 9373781510371b07b58b3ba741a85e8a2e19816c | |
| parent | def68d973bc978cab37338f8a8b6ce16388cbde4 (diff) | |
| download | ccwl-a36007a22fa963ac3d88c7b9d2c57e641d1ac6c0.tar.gz ccwl-a36007a22fa963ac3d88c7b9d2c57e641d1ac6c0.tar.lz ccwl-a36007a22fa963ac3d88c7b9d2c57e641d1ac6c0.zip | |
Use symbols as input identifiers instead of strings.
* ccwl/ccwl.scm (input=?): Compare using eq? instead of string=?.
(command->cwl, write-cwl): Convert input-id to string before
appending.
| -rw-r--r-- | ccwl/ccwl.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 7b8d59c..b656d36 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -133,8 +133,8 @@ (make-command additional-inputs outputs run stdin other))) (define (input=? input1 input2) - (string=? (input-id input1) - (input-id input2))) + (eq? (input-id input1) + (input-id input2))) (define (invoke-command step-id command . args) (make-step step-id @@ -221,7 +221,7 @@ (input=? arg x))) (command-args command)) position))) - (string-append "$(inputs." (input-id arg) ")") + (string-append "$(inputs." (symbol->string (input-id arg)) ")") arg) position)) (command-args command) @@ -269,7 +269,8 @@ (outputs . ,(map output->cwl (command-outputs command))) ,@(if (command-stdin command) `((stdin . ,(string-append "$(inputs." - (input-id (command-stdin command)) + (symbol->string + (input-id (command-stdin command))) ".path)"))) '())))) |