bugfix: symbol-function throws on builtin macro.

* eval.c (symbol_value): lookup_mac doesn't return
a cons cell binding; don't do cdr on it.

1 files changed, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index 210c7a97..12f8c305 100644
--- a/eval.c
+++ b/eval.c
@@ -3435,8 +3435,8 @@ static val symbol_value(val sym)
 static val symbol_function(val sym)
 {
   uses_or2;
-  return or2(cdr(or2(lookup_fun(nil, sym),
-                     lookup_mac(nil, sym))),
+  return or2(or2(cdr(lookup_fun(nil, sym)),
+                 lookup_mac(nil, sym)),
              gethash(op_table, sym));
 }