Re: Occur stack

[Tom]

Stefan Monnier <monnier <at> iro.umontreal.ca> writes:

> 
> >      (eval `(let ((dir default-directory)
> >                   (args command-args))
> >               (lambda ()
> >                 (let ((default-directory dir))
> >                   (grep-find args))))
> >            t))))
> 
> Yuck!
> 

This is the first time I used closures, so it may be crude.

Is there a simpler way to write this? First I tried to
set default-directory in the outer let, but then it had
apparently no effect on grep-find.

Hmm, I tried it again and it worked, so I must have had
some other error when I wrote this.

Is this the simplest way then? Or can it be simplified more?

     (eval `(let ((default-directory default-directory)
                  (args command-args))
              (lambda ()
                (grep-find args)))
           t))))