From 90854ccf3514dc67a30556500e1716dd1933954c Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Tue, 25 Mar 2025 01:45:47 +0100
Subject: Adequate token printing

---
 cpp.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'cpp.sml')

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"
 
-- 
cgit v1.2.3