aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))