diff options
| author | Arun Isaac | 2021-10-11 16:32:38 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-11 16:32:38 +0530 |
| commit | ba49bd0ddf6970b70a62093f2ec55cee802fb90b (patch) | |
| tree | 08891aa6cac7e4dc511207183a34b1191ea8c17a | |
| parent | 9a354d0b99da83f60ab68f0151d6f0d5488b7a93 (diff) | |
| download | ccwl-ba49bd0ddf6970b70a62093f2ec55cee802fb90b.tar.gz ccwl-ba49bd0ddf6970b70a62093f2ec55cee802fb90b.tar.lz ccwl-ba49bd0ddf6970b70a62093f2ec55cee802fb90b.zip | |
ccwl: Remove unused invoke-command function.
* ccwl/ccwl.scm (invoke-command): Delete function.
| -rw-r--r-- | ccwl/ccwl.scm | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 6a25bb0..4c15d98 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -217,12 +217,6 @@ RUN-ARGS. If such an input is not present in RUN-ARGS, return #f." (eq? (input-id input1) (input-id input2))) -(define (invoke-command step-id command . args) - (make-step step-id - command - (plist->alist args) - (command-outputs command))) - (define (command-input-keys command) "Return the list of input keys accepted by COMMAND." (map input-id (command-inputs command))) |