* eval.c (symbol_function): Retrieve the global macro binding if the

function lookup fails, and if that fails, retrieve the special
operator binding.
(fboundp): Report t if there is a global macro binding.

* txr.1: Use "global" rather than "toplevel". Added note that
the fun operator doesn't see macro bindings. Documented that
symbol-function and fboundp see global macro bindings,
and that symbol-function can retrieve a special operator binding.

1 files changed, 6 insertions, 3 deletions

diff --git a/eval.c b/eval.c
index 9a30b391..baa0ed73 100644
--- a/eval.c
+++ b/eval.c
@@ -2522,7 +2522,10 @@ static val symbol_value(val sym)
 
 static val symbol_function(val sym)
 {
-  return cdr(lookup_fun(nil, sym));
+  uses_or2;
+  return or2(cdr(or2(lookup_fun(nil, sym),
+                     lookup_mac(nil, sym))),
+             gethash(op_table, sym));
 }
 
 static val boundp(val sym)
@@ -2532,8 +2535,8 @@ static val boundp(val sym)
 
 static val fboundp(val sym)
 {
-  return if3(lookup_fun(nil, sym), t,
-             if3(gethash(op_table, sym), t, nil));
+  return if2(lookup_fun(nil, sym) || lookup_mac(nil, sym) ||
+             gethash(op_table, sym), t);
 }
 
 static val rangev_func(val env, val lcons)