bugfix: read-print consistency for @(expr).

* lib.c (obj_print_impl): Only print (sys:expr x . rest) as @x
if rest is nil, and x is a cons. Otherwise we create
read-print problems: (sys:expr x y) prints as @x, concealing y.
And (sys:expr sym) prints as @sym which reads as
(sys:var sym).

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 2b1be171..299263e6 100644
--- a/lib.c
+++ b/lib.c
@@ -9557,7 +9557,7 @@ val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx)
       {
         put_char(chr('@'), out);
         obj_print_impl(second(obj), out, pretty, ctx);
-      } else if (sym == expr_s) {
+      } else if (sym == expr_s && two_elem && consp(second(obj))) {
         put_char(chr('@'), out);
         obj_print_impl(second(obj), out, pretty, ctx);
       } else if (sym == rcons_s && consp(cdr(obj))