diff options
-rw-r--r-- | eval.c | 2 | ||||
-rw-r--r-- | eval.h | 1 | ||||
-rw-r--r-- | parser.c | 2 |
3 files changed, 3 insertions, 2 deletions
@@ -3848,7 +3848,7 @@ val fboundp(val sym) return tnil(lookup_fun(nil, sym)); } -static val mboundp(val sym) +val mboundp(val sym) { return tnil(lookup_mac(nil, sym)); } @@ -48,6 +48,7 @@ val set_dyn_env(val de); val funcall_interp(val interp_fun, struct args *); val boundp(val sym); val fboundp(val sym); +val mboundp(val sym); val special_operator_p(val sym); val macro_form_p(val form, val menv); val func_get_name(val fun, val env); @@ -458,7 +458,7 @@ static void find_matching_syms(lino_completions_t *cpl, switch (par) { case '(': - if (!fboundp(sym)) + if (!fboundp(sym) && !mboundp(sym) && !special_operator_p(sym)) continue; break; case '[': |