1 files changed, 6 insertions, 0 deletions
diff --git a/lib.macros.lisp b/lib.macros.lisp
index 5489564..f02e7a2 100644
--- a/lib.macros.lisp
+++ b/lib.macros.lisp
@@ -77,3 +77,9 @@ arguments `LAMBDA-LIST' with body `BODY'."
      (declaim (ftype ,type ,name))
      (defun ,name ,lambda-list
        ,@body)))
+
+(defmacro $ (&rest forms)
+  "Given a sequence of FORMS, return a unary function which applies each form
+sequentially"
+  `(lambda (x)
+     (->> x ,@forms)))