diff options
| -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)) |