* eval.c (op_quote): Improved diagnostic.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 78d5637a..56f45633 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2015-07-24  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (op_quote): Improved diagnostic.
+
 2015-07-23  Kaz Kylheku  <kaz@kylheku.com>
 
 	Set up blank top_srcdir if building in source directory.
diff --git a/eval.c b/eval.c
index 6450501f..d3605da8 100644
--- a/eval.c
+++ b/eval.c
@@ -1114,7 +1114,7 @@ static val op_quote(val form, val env)
   val d = cdr(form);
 
   if (!consp(d) || cdr(d))
-    eval_error(form, lit("bad quote syntax"), nao);
+    eval_error(form, lit("bad quote syntax: ~s"), form, nao);
   return second(form);
 }