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, 2 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index 6f82063a..0503d615 100644
--- a/lib.c
+++ b/lib.c
@@ -6700,7 +6700,7 @@ val obj_print(val obj, val out)
     {
       val sym = car(obj);
 
-      if (sym == quote_s) {
+      if (sym == quote_s && consp(cdr(obj)) && !(cdr(cdr(obj)))) {
         put_char(chr('\''), out);
         obj_print(second(obj), out);
       } else if (sym == sys_qquote_s) {
@@ -6894,7 +6894,7 @@ val obj_pprint(val obj, val out)
     {
       val sym = car(obj);
 
-      if (sym == quote_s) {
+      if (sym == quote_s && consp(cdr(obj)) && !(cdr(cdr(obj)))) {
         put_char(chr('\''), out);
         obj_print(second(obj), out);
       } else if (sym == sys_qquote_s) {