Re: [nongnu] elpa/geiser bb9d5cb200: geiser-impl--normalize-method: quick fix for previous change

[Stefan Monnier]

>      (let ((v (cadr m)))
> -      (if (functionp v) m
> -        `(,(car m)
> -          ,(lambda (&rest _) v))))))
> +      (if (functionp v) m `(,(car m) (lambda (&rest _) ,v))))))

But this reintroduces the use of a list-that-looks-like-a-function
instead of a true function.

BTW, one difference I can see is that the new code will basically pass
`v` to `eval` whereas the code I had sent considers `v` to be
a value already.

So maybe the code I should have sent is along the lines of the
patch below?


        Stefan


diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 53a7a824c3..3bc5af5e55 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -158,7 +158,7 @@ in order to determine its scheme flavour."
              (= 2 (length m))
              (symbolp (car m)))
     (let ((v (cadr m)))
-      (if (functionp v) m `(,(car m) (lambda (&rest _) ,v))))))
+      (if (functionp v) m `(,(car m) ,(lambda (&rest _) (eval v t)))))))
 
 (defun geiser-impl--define (file name parent methods)
   (let* ((methods (mapcar #'geiser-impl--normalize-method methods))