[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Generic `tree-seq` function definition?
|
From: |
Tim Visher |
|
Subject: |
Re: Generic `tree-seq` function definition? |
|
Date: |
Fri, 6 Sep 2013 12:05:05 -0400 |
On Fri, Sep 6, 2013 at 11:17 AM, Stefan Monnier
<monnier@iro.umontreal.ca> wrote:
> > (defun tree-seq (branch? children root)
> > (cl-labels ((walk (node)
> > (cons node
> > (if (funcall branch? node)
> > (cl-mapcan 'walk (cddr (funcall children
> ^^^^^
>
> This is the `walk' symbol. You want the `walk' function instead.
> I.e. use #'walk
Thank you!
--
In Christ,
Timmy V.
http://blog.twonegatives.com/
http://five.sentenc.es/ -- Spend less time on mail