Commit 05e642e2 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

use ensure-function at one more place

parent 2e9803cc
......@@ -285,10 +285,7 @@ Example:
(mappend (lambda (x)
(%map-product (curry f x) more))
one)))))
(%map-product (if (functionp function)
function
(fdefinition function))
(cons list more-lists))))
(%map-product (ensure-function function) (cons list more-lists))))
(defun flatten (tree)
"Traverses the tree in order, collecting non-null leaves into a list."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment