branch: elpa/macrostep
commit dd14d5c0ec467a518ff82ab7527ddd60f5224cc1
Author: joddie <[email protected]>
Commit: joddie <[email protected]>
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
