From 0f9042b2c72a5b4c96c41bdd6711010392157b8c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 1 Oct 2015 23:47:19 -0700
Subject: 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.
---
 eval.c | 4 ++--
 1 file 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));
 }
 
-- 
cgit v1.2.3