symbol-function: bugfix: expand lambda expression.

* eval.c (lookup_fun): A lambda expression must be expanded
before being turned into a function.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 7b3a765d..3eea86bc 100644
--- a/eval.c
+++ b/eval.c
@@ -579,7 +579,7 @@ val lookup_fun(val env, val sym)
     } else if (car(sym) == macro_s) {
       return lookup_mac(nil, cadr(sym));
     } else if (car(sym) == lambda_s) {
-      return cons(sym, func_interp(env, sym));
+      return cons(sym, func_interp(env, expand(sym, nil)));
     } else {
       return nil;
     }