diff options
| -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)"))) '())))) |