1 files changed, 9 insertions, 3 deletions
diff --git a/lib.c b/lib.c
index 04c550fa..d28d16d7 100644
--- a/lib.c
+++ b/lib.c
@@ -5233,9 +5233,12 @@ val obj_print(val obj, val out)
     {
       val sym = car(obj);
 
-      if (sym == quote_s || sym == sys_qquote_s) {
+      if (sym == quote_s) {
         put_char(chr('\''), out);
         obj_print(second(obj), out);
+      } else if (sym == sys_qquote_s) {
+        put_char(chr('^'), out);
+        obj_print(second(obj), out);
       } else if (sym == sys_unquote_s) {
         put_char(chr(','), out);
         obj_print(second(obj), out);
@@ -5419,9 +5422,12 @@ val obj_pprint(val obj, val out)
     {
       val sym = car(obj);
 
-      if (sym == quote_s || sym == sys_qquote_s) {
+      if (sym == quote_s) {
         put_char(chr('\''), out);
-        obj_pprint(second(obj), out);
+        obj_print(second(obj), out);
+      } else if (sym == sys_qquote_s) {
+        put_char(chr('^'), out);
+        obj_print(second(obj), out);
       } else if (sym == sys_unquote_s) {
         put_char(chr(','), out);
         obj_pprint(second(obj), out);