* eval.c (symbol_function): Bugfix: return the function rather than

the whole binding.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index ca7c51ec..60e0cebf 100644
--- a/eval.c
+++ b/eval.c
@@ -1849,7 +1849,7 @@ static val lazy_mappendv(val fun, val list_of_lists)
 
 static val symbol_function(val sym)
 {
-  return lookup_fun(nil, sym);
+  return cdr(lookup_fun(nil, sym));
 }
 
 static val rangev_func(val env, val lcons)