print: keep colon in keyword syms

* lib.c (obj_print_impl): Always include leading colon when
printing keyword symbols, regardless of pretty flag.
Subject to backward compatibility.

* txr.1: Compat note added.

1 files changed, 5 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 3b9262b1..5a4eb3ad 100644
--- a/lib.c
+++ b/lib.c
@@ -11283,7 +11283,11 @@ dot:
     }
     break;
   case SYM:
-    if (!pretty) {
+    if (pretty) {
+      if (!opt_compat || opt_compat > 202)
+        if (obj->s.package == keyword_package)
+          put_char(chr(':'), out);
+    } else {
       if (!obj->s.package) {
         put_string(lit("#:"), out);
       } else if (obj->s.package == keyword_package) {