diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-02 18:30:01 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-02 18:30:01 +0200 |
| commit | d389268e5cee56ad7bdea3c07cb28bcba3b0ff99 (patch) | |
| tree | 331c343b475f4be447edd1e7c504ffb3e87b53e8 /common.sml | |
| parent | b3f8ca28af653dcb5fdc10e8c70439d86c043635 (diff) | |
Eval
Diffstat (limited to 'common.sml')
| -rw-r--r-- | common.sml | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -149,6 +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 R = fn z => bind A1 (fn n => fn (output, _) => app (fn f => f ()) (List.tabulate (n, fn _ => fn () => output " "))) z |