From 02ff0322917f85be7b75a3d9f94076398b9d846a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 6 Mar 2021 02:02:39 +0530
Subject: Add modifier for run field of <step> object.

* ccwl/ccwl.scm (modify-step-run): New function.
---
 ccwl/ccwl.scm | 3 +++
 1 file changed, 3 insertions(+)

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))
 
-- 
cgit v1.2.3