1 files changed, 7 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm
index 97ff476..bc03f6d 100644
--- a/mew.scm
+++ b/mew.scm
@@ -26,7 +26,7 @@
      -> fun-> fun->> set->
      =? <>?
      ~?
-     => and=> set=>
+     => =>* and=> set=>
 
      generic-make-accumulator)
 
@@ -850,6 +850,12 @@
 
   (define => act)
 
+  (define-syntax =>*
+    (syntax-rules ()
+      ((_ expr . fs)
+       (receive args expr
+         (apply (per . fs) args)))))
+
   (define-syntax set=>
     (syntax-rules ()
       ((_ location . fs)