Adequate token printing

1 files changed, 1 insertions, 2 deletions

diff --git a/cpp.sml b/cpp.sml
index b2762b5..e2ffc2c 100644
--- a/cpp.sml
+++ b/cpp.sml
@@ -4,8 +4,7 @@ let
   val tkl = Tokenizer.tokenize stream
   val fileInfo = Stream.convert stream
 in
-  List.app
-    (fn (p, x) => (Stream.printPos fileInfo p; Tokenizer.printToken x)) tkl
+  Tokenizer.printTokens tkl (#2 fileInfo)
 end
   | main _  = printLn "Expected a signle argument: file name"