Emacs lisp高阶函数支持

2023年9月28日 241次阅读

我试图使用闭包在Elisp中实现类似
Haskell的高阶函数.

;;; -*- 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)

问题是最后一行返回错误无效的功能.因此,似乎关闭不考虑理智的功能.我仍然可以在mapc中使用(.curry#’foo),但不能在钩子中使用.curry#’foo.
这是我能做些什么吗？

最佳答案 你的((.curry#’foo)2 3)在我知道的任何Lisp中都是无效的,除了Scheme(以及诸如Racket之类的Scheme衍生物).说明问题的最简单的代码如下：

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