diff options
author | Arun Isaac | 2021-03-06 02:02:39 +0530 |
---|---|---|
committer | Arun Isaac | 2021-03-06 02:12:04 +0530 |
commit | 02ff0322917f85be7b75a3d9f94076398b9d846a (patch) | |
tree | 7890ad51ac0412b13257b377f389a920da79d850 | |
parent | e4405073d482f64c82ff41f40b09503dcc5948d6 (diff) | |
download | ccwl-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.scm | 3 |
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)) |