From d81daca37de347ed7e59eacfad87e4c24daa462a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 1 Jun 2021 14:38:07 +0530
Subject: 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.
---
 ccwl/ccwl.scm | 29 ++++-------------------------
 1 file 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)))
-- 
cgit v1.2.3