From 6a19540433bcc664958c89cfc21c242f979bb693 Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Sun, 3 Aug 2025 17:14:34 +0200 Subject: Struct support --- common.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'common.sml') diff --git a/common.sml b/common.sml index 13d9ff8..6b23c4d 100644 --- a/common.sml +++ b/common.sml @@ -149,7 +149,7 @@ fun F z = bind A0 (fn (_, mf) => mf ()) z val I = fn z => bindWith2str Int.toString z val C = fn z => bindWith2str str z val B = fn z => bindWith2str Bool.toString z -val W64 = fn z => bindWith2str Word64.toString z +val W = fn z => bindWith2str (Word.fmt StringCvt.DEC) z val R = fn z => bind A1 (fn n => fn (output, _) => app (fn f => f ()) (List.tabulate (n, fn _ => fn () => output " "))) z -- cgit v1.2.3