From 15bf006150b96950dd8a77c51eeda7f2305843f7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 13 Jan 2020 03:00:16 +0100
Subject: Util set-> macro.

---
 module/util.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'module/util.scm')

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
-- 
cgit v1.2.3