summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-10-11 16:32:38 +0530
committerArun Isaac2021-10-11 16:32:38 +0530
commitba49bd0ddf6970b70a62093f2ec55cee802fb90b (patch)
tree08891aa6cac7e4dc511207183a34b1191ea8c17a
parent9a354d0b99da83f60ab68f0151d6f0d5488b7a93 (diff)
downloadccwl-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.scm6
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)))