Emacs lisp high-order function support

Question

I am trying to implement Haskell-like high-order function in Elisp, using closures.

;;; -*- lexical-binding: t -*-
(defun foo (pair)
    (car pair))
(defun* .curry (fn)
    (lambda (x y &rest args) (apply fn (cons x y) args)))

((lambda (x y) (1+ x)) 2 3)
((lambda (&rest args) (apply (.curry #'foo) args)) 2 3)
(funcall (.curry #'foo) 2 3)
((.curry #'foo) 2 3)

Problem is that last line returns error Invalid function. So, it seems closure do not considered sane function. I still can use (.curry #'foo) in mapc, but not in hooks. Is it something I can do about it?

Rewrite .curry as a macro? That is idea! Thanks for all this information! — KAction
– KAction, Commented Apr 11, 2013 at 5:07

hruvulum · Accepted Answer · 2013-05-30 20:57:09Z

2

Your ((.curry #'foo) 2 3) is invalid in any Lisp I know of except Scheme (and Scheme derivatives such as Racket). The simplest code that illustrates the issue is as follows:

(defun f () (lambda ()))
(funcall (f)) ; tested in Emacs 23 and CLISP, works
((f)) ; tested in Emacs 23 and CLISP, results in an error

edited May 30, 2013 at 20:57

answered May 30, 2013 at 19:20

hruvulum

10510 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Emacs lisp high-order function support

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related