From d9c809a5550b2fe23b2fd1e66672b503730d55f1 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Sun, 25 May 2025 19:59:56 +0200
Subject: Expression parsing

---
 common.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'common.sml')

diff --git a/common.sml b/common.sml
index 5429a5f..02c3724 100644
--- a/common.sml
+++ b/common.sml
@@ -161,7 +161,7 @@ val I = fn z => bindWith2str Int.toString z
 val C = fn z => bindWith2str str z
 val B = fn z => bindWith2str Bool.toString z
 val R = fn z => bind A1 (fn ((output, _), n) => app (fn f => f ())
-        (List.tabulate (n, fn _ => fn () => output "\t"))) z
+        (List.tabulate (n, fn _ => fn () => output "    "))) z
 
 type ('t, 'a, 'b, 'c) a1printer = (bool * ((string -> unit) * 'a)) * 'b
         -> 't -> ((bool * ((string -> unit) * 'a)) * 'b -> 'c) -> 'c
-- 
cgit v1.2.3