From ba49bd0ddf6970b70a62093f2ec55cee802fb90b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 11 Oct 2021 16:32:38 +0530
Subject: ccwl: Remove unused invoke-command function.

* ccwl/ccwl.scm (invoke-command): Delete function.
---
 ccwl/ccwl.scm | 6 ------
 1 file changed, 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)))
-- 
cgit v1.2.3