From 2f168e6c941662d9a3b4c0e5440f9f4cdf0bb710 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Mon, 4 Aug 2025 00:11:18 +0200
Subject: Typedef support

---
 common.sml | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'common.sml')

diff --git a/common.sml b/common.sml
index 6b23c4d..4bde818 100644
--- a/common.sml
+++ b/common.sml
@@ -194,3 +194,11 @@ let
 in
   printf `"error: " (fn (a, _) => g (a, finish))
 end
+
+fun printfn g =
+let
+  fun finish (true, _) = ()
+    | finish (false, (output, _)) = output "\n"
+in
+  printf (fn (a, _) => g (a, finish))
+end
-- 
cgit v1.2.3