From 5c368a8e62d722688c4a81d5af16af8bf32eb560 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 23 Jan 2020 14:00:24 +0100
Subject: Allow = in set->.

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

(limited to 'module/util.scm')

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