diff options
Diffstat (limited to '')
-rw-r--r-- | module/util.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/module/util.scm b/module/util.scm index 3c4006c4..910a2400 100644 --- a/module/util.scm +++ b/module/util.scm @@ -12,7 +12,7 @@ quote? re-export-modules use-modules* - -> set aif awhen + -> set set-> aif awhen tree-map let-lazy let-env) #:replace (let* set! define-syntax when unless if)) @@ -381,6 +381,12 @@ (set-fields obj ((acc) (op (acc obj) rest ...)))])) +(define-syntax set-> + (syntax-rules () + [(_ obj) obj] + [(_ obj (func args ...) rest ...) + (set-> (set (func obj) args ...) rest ...)])) + ;; TODO multiple values |