aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-03-06 02:02:39 +0530
committerArun Isaac2021-03-06 02:12:04 +0530
commit02ff0322917f85be7b75a3d9f94076398b9d846a (patch)
tree7890ad51ac0412b13257b377f389a920da79d850
parente4405073d482f64c82ff41f40b09503dcc5948d6 (diff)
downloadccwl-02ff0322917f85be7b75a3d9f94076398b9d846a.tar.gz
ccwl-02ff0322917f85be7b75a3d9f94076398b9d846a.tar.lz
ccwl-02ff0322917f85be7b75a3d9f94076398b9d846a.zip
Add modifier for run field of <step> object.
* ccwl/ccwl.scm (modify-step-run): New function.
-rw-r--r--ccwl/ccwl.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 0eed492..789e39e 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -131,6 +131,9 @@
(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))