diff options
| -rw-r--r-- | module/util.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/util.scm b/module/util.scm index 4cc591ab..0751c7de 100644 --- a/module/util.scm +++ b/module/util.scm @@ -398,8 +398,10 @@ obj ((acc) (op (acc obj) rest ...)))])) (define-syntax set-> - (syntax-rules () + (syntax-rules (=) [(_ obj) obj] + [(_ obj (func = (op args ...)) rest ...) + (set-> (set (func obj) (op (func obj) args ...)) rest ...)] [(_ obj (func args ...) rest ...) (set-> (set (func obj) args ...) rest ...)])) |