shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Slighly less serialized output.

--- a/src/runtime/eval.c

+++ b/src/runtime/eval.c

@@ -2217,7 +2217,8 @@

   default: ERR("print tag");

   }

   if (!prefix) {

-    putb(' ', f);

+    if (GETTAG(n) != T_AP)

+      putb(' ', f);

     if (share) {

       putb(':', f);

       putdecb((value_t)LABEL(n), f);

-- 

⑨