Deal with bad quote syntax.

* eval.c (op_quote): Throw error on bad syntax.

* lib.c (obj_print, obj_pprint): Do not hide bad quote syntax
using ' notation; print it using ordinary notation.

1 files changed, 4 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 0149c764..87a6b875 100644
--- a/eval.c
+++ b/eval.c
@@ -1102,6 +1102,10 @@ static val eval_prog1(val forms, val env, val ctx_form)
 
 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);
   return second(form);
 }