diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-03 17:14:34 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-03 17:14:34 +0200 |
| commit | 6a19540433bcc664958c89cfc21c242f979bb693 (patch) | |
| tree | 21b8478399b2fc4324eea88cd1a1738426139053 /common.sml | |
| parent | e2074ffd3780e64eae602c1d8a050246cc08b088 (diff) | |
Struct support
Diffstat (limited to 'common.sml')
| -rw-r--r-- | common.sml | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |