Typedef support

1 files changed, 8 insertions, 0 deletions

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