add a named let macro

1 files changed, 15 insertions, 0 deletions

diff --git a/noflet.el b/noflet.el
index 2895f53..764ba7f 100644
--- a/noflet.el
+++ b/noflet.el
@@ -155,6 +155,21 @@ maintainers refuse to add the correct indentation spec to
            (indent noflet-indent-func))
   `(cl-flet ,bindings ,@body))
 
+(defmacro* letn (tag bindings &rest body)
+  (declare (debug (sexp sexp &rest form))
+           (indent 2))
+  `(cl-labels ((,tag ,(-map 'car bindings) ,@body))
+     (,tag ,@(-map 'cadr bindings))))
+
+(defun ntake-all (f source)
+  (letn take-all ((result nil)
+                    (src source))
+        (if src
+            (let ((l (-take-while f src)))
+              (take-all (cons l result)
+                        (nthcdr (+ 1 (length l)) src)))
+            result)))
+
 
 (provide 'noflet)