summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-06-01 14:38:07 +0530
committerArun Isaac2021-06-01 14:38:07 +0530
commitd81daca37de347ed7e59eacfad87e4c24daa462a (patch)
tree9138f6903b8b2090f59bd5399b9d6c9ce63e5df2
parent35bcaaa67efbe9b60e69b0f7c17acc186c74e7c3 (diff)
downloadccwl-d81daca37de347ed7e59eacfad87e4c24daa462a.tar.gz
ccwl-d81daca37de347ed7e59eacfad87e4c24daa462a.tar.lz
ccwl-d81daca37de347ed7e59eacfad87e4c24daa462a.zip
Remove unused setters, appenders, etc.
* ccwl/ccwl.scm: Do not export input-with-prefix. (<input>): Delete set-input-prefix. (<step>): Delete set-step-run, set-step-id, set-step-out. (input-with-prefix, field-appender, modify-step-run, append-step-in, append-step-out, append-command-outputs): Delete functions.
-rw-r--r--ccwl/ccwl.scm29
1 files changed, 4 insertions, 25 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 1f864e1..81f9a13 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -34,7 +34,6 @@
#:export (command
workflow
input
- input-with-prefix
output
step
pipeline
@@ -50,13 +49,9 @@
(label input-label)
(default input-default)
(source input-source set-input-source)
- (prefix input-prefix set-input-prefix)
+ (prefix input-prefix)
(other input-other))
-(define (input-with-prefix prefix input)
- "Set PREFIX on INPUT object."
- (set-input-prefix input prefix))
-
(define-immutable-record-type <unspecified-default>
(make-unspecified-default)
unspecified-default?)
@@ -94,22 +89,9 @@
(make-step id run in out)
step?
(id step-id)
- (run step-run set-step-run)
- (in step-in set-step-in)
- (out step-out set-step-out))
-
-(define (field-appender getter setter)
- (lambda (object element)
- (setter object (cons element (getter object)))))
-
-(define (modify-step-run step proc)
- (set-step-run step (proc (step-run step))))
-
-(define append-step-in
- (field-appender step-in set-step-in))
-
-(define append-step-out
- (field-appender step-out set-step-out))
+ (run step-run)
+ (in step-in)
+ (out step-out))
(define-immutable-record-type <command>
(make-command additional-inputs outputs args stdin other)
@@ -120,9 +102,6 @@
(stdin command-stdin set-command-stdin)
(other command-other))
-(define append-command-outputs
- (field-appender command-outputs set-command-outputs))
-
(define command
(lambda** (#:key stdin #:key* run (additional-inputs '()) (outputs '()) (other '()))
(make-command additional-inputs outputs run stdin other)))