From d389268e5cee56ad7bdea3c07cb28bcba3b0ff99 Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Sat, 2 Aug 2025 18:30:01 +0200 Subject: Eval --- common.sml | 1 + 1 file changed, 1 insertion(+) (limited to 'common.sml') diff --git a/common.sml b/common.sml index ffb4fa6..13d9ff8 100644 --- a/common.sml +++ b/common.sml @@ -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 -- cgit v1.2.3