From 3f510f49a0e00d7b6b057e6cee6f4c2ac34d0f5f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 1 Sep 2012 23:41:52 -0700 Subject: * eval.c (symbol_function): Bugfix: return the function rather than the whole binding. --- ChangeLog | 5 +++++ eval.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3d326c0e..22a9d4f5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-09-01 Kaz Kylheku + + * eval.c (symbol_function): Bugfix: return the function rather than + the whole binding. + 2012-09-01 Kaz Kylheku * txr.1: Minor corrections, and documented most stream functions, 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) -- cgit v1.2.3