bug#24171: 25.1; Bytecode returns nil instead of expected closure

[Andreas Schwab]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> eval this defun:
>
> (defun test ()
>   (let ((my-cool-fun 'dummy))
>     (let ((my-cool-fun
>            (let ((calculate (lambda () 1)))
>              (lambda () (setq my-cool-fun calculate))))
>           (return-my-cool-fun (lambda () my-cool-fun)))
>       (funcall my-cool-fun)
>       (funcall return-my-cool-fun))))
>
> (test) evals to a closure as expected.

ELISP> (test)
*** Eval error ***  Symbol’s value as variable is void: calculate

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."