[nongnu] elpa/macrostep dd14d5c 077/110: Remove unused function `bindings-to-environment`

[ELPA Syncer]

branch: elpa/macrostep
commit dd14d5c0ec467a518ff82ab7527ddd60f5224cc1
Author: joddie <jonxfield@gmail.com>
Commit: joddie <jonxfield@gmail.com>

    Remove unused function `bindings-to-environment`
---
 macrostep.el | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/macrostep.el b/macrostep.el
index 5bb1830..f2206fb 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -683,22 +683,6 @@ lambda expression that returns its expansion."
                       ,form)))))
             (error "macrostep-environment-at-point failed")))))))
 
-(defun macrostep-bindings-to-environment (bindings)
-  "Return the macro-expansion environment declared by BINDINGS as an alist.
-
-BINDINGS is a list in the form expected by `macrolet' or
-`cl-macrolet'.  The return value is an alist, as described in
-`macrostep-environment-at-point'."
-  ;; So that the later elements of bindings properly shadow the
-  ;; earlier ones in the returned environment, we must reverse the
-  ;; list before mapping over it.
-  (cl-loop for (name . forms) in (reverse bindings)
-           collect
-           ;; Adapted from the definition of `cl-macrolet':
-           (let ((res (cl--transform-lambda forms name)))
-             (eval (car res))
-             (cons name `(lambda ,@(cdr res))))))
-
 (defun macrostep-overlay-at-point ()
   "Return the innermost macro stepper overlay at point."
   (let ((result