* eval.c (do_apf, apf): New functions.

(eval_init): Register apf as intrinsic.

* txr.1: Document apf.

1 files changed, 27 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index 7d443afb..e325c471 100644
--- a/txr.1
+++ b/txr.1
@@ -11957,6 +11957,8 @@ except that the symbol args is to be understood as a generated symbol (gensym).
 The ap macro nests properly with op and do, in any combination, in regard
 to the @@n notation.
 
+See also: the apf function.
+
 .SS Macro ret
 
 .TP
@@ -12157,6 +12159,31 @@ Example:
   ;; the function returned by (retf 42) ignores 1 2 3 and returns 42.
   (call (retf 42) 1 2 3) -> 42
 
+.SH Function apf
+
+.TP
+Syntax:
+
+  (apf <function>)
+
+.TP
+Description:
+
+The apf function returns a one-argument function which accepts
+a list. When the function is called, it treats the list as
+argument which are applied to <function>. It returns whatever
+<function> returns.
+
+See also: the ap macro.
+
+.TP
+Example:
+
+  ;; Function returned by [apf +] accepts (1 2 3) list and
+  ;; applies it to +, as if (+ 1 2 3) were called.
+
+  (call [apf +] '(1 2 3)) -> 6
+
 .SH INPUT AND OUTPUT (STREAMS)
 
 TXR Lisp supports input and output streams of various kinds, with