diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-13 03:00:16 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-13 03:00:16 +0100 |
| commit | 15bf006150b96950dd8a77c51eeda7f2305843f7 (patch) | |
| tree | 3d4d0ba885785b90ece28807afe0bce5cdec2a0c /module/util.scm | |
| parent | Util re-export define*-public. (diff) | |
| download | calp-15bf006150b96950dd8a77c51eeda7f2305843f7.tar.gz calp-15bf006150b96950dd8a77c51eeda7f2305843f7.tar.xz | |
Util set-> macro.
Diffstat (limited to 'module/util.scm')
| -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 |