diff options
author | Arun Isaac | 2021-06-01 14:38:07 +0530 |
---|---|---|
committer | Arun Isaac | 2021-06-01 14:38:07 +0530 |
commit | d81daca37de347ed7e59eacfad87e4c24daa462a (patch) | |
tree | 9138f6903b8b2090f59bd5399b9d6c9ce63e5df2 | |
parent | 35bcaaa67efbe9b60e69b0f7c17acc186c74e7c3 (diff) | |
download | ccwl-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.scm | 29 |
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))) |