tweaks and fixes, an a kind of threading/composition function pair

1 files changed, 11 insertions, 0 deletions

diff --git a/lambda-tools.lisp b/lambda-tools.lisp
index ecad381..24e3cb2 100644
--- a/lambda-tools.lisp
+++ b/lambda-tools.lisp
@@ -38,3 +38,14 @@ the preceding predicates in the list returned non-NIL."
                    ((funcall (car preds) x)
                     (conj x (cdr preds))))))
     (lambda (x) (conj x predicates))))
+
+(defun >> (arg &rest fns)
+  (dolist (fn fns)
+    (setf arg (funcall fn arg)))
+  arg)
+
+
+(defun <> (&rest fns)
+  (lambda (arg)
+    (apply #'>> arg fns)))
+