From 70f541e4a94c708607f75a4a1e4517cff397d035 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 24 Aug 2016 05:48:32 -0700 Subject: Misleading error message in defvarl and defsymacro. * eval.c (op_defvarl, op_defsymacro): Report correct symbol in not-bindable-symbol error message rather than reporting as let. --- eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eval.c b/eval.c index 78cc5a34..c5935cc1 100644 --- a/eval.c +++ b/eval.c @@ -1543,7 +1543,7 @@ static val op_defvarl(val form, val env) val sym = first(args); if (!bindable(sym)) - eval_error(form, lit("let: ~s is not a bindable symbol"), sym, nao); + eval_error(form, lit("defvarl: ~s is not a bindable symbol"), sym, nao); { if (!gethash(top_vb, sym)) { @@ -1564,7 +1564,7 @@ static val op_defsymacro(val form, val env) (void) env; if (!bindable(sym)) - eval_error(form, lit("let: ~s is not a bindable symbol"), sym, nao); + eval_error(form, lit("defsymacro: ~s is not a bindable symbol"), sym, nao); remhash(top_vb, sym); if (!opt_compat || opt_compat > 143) -- cgit v1.2.3