* lib.c (obj_print, obj_pprint): Bugfix: incorrect

value returned when printing dwim forms, due to
mutating the obj variable.

1 files changed, 4 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index eba06a71..9bcce5e4 100644
--- a/lib.c
+++ b/lib.c
@@ -6883,6 +6883,7 @@ val obj_print(val obj, val out)
   case CONS:
   case LCONS:
     {
+      val obj_in = obj;
       val sym = car(obj);
 
       if (sym == quote_s && consp(cdr(obj)) && !(cdr(cdr(obj)))) {
@@ -6949,8 +6950,8 @@ finish:
           }
         }
       }
+      return obj_in;
     }
-    return obj;
   case LIT:
   case STR:
     {
@@ -7077,6 +7078,7 @@ val obj_pprint(val obj, val out)
   case CONS:
   case LCONS:
     {
+      val obj_in = obj;
       val sym = car(obj);
 
       if (sym == quote_s && consp(cdr(obj)) && !(cdr(cdr(obj)))) {
@@ -7143,8 +7145,8 @@ finish:
           }
         }
       }
+      return obj_in;
     }
-    return obj;
   case LIT:
   case STR:
     put_string(obj, out);