From a0be166ef23e1b34b09060b99c03cdadb6ac2132 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Tue, 25 Mar 2025 00:24:52 +0100
Subject: Escape sequences

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

(limited to 'cpp.sml')

diff --git a/cpp.sml b/cpp.sml
index 32fcd3c..b2762b5 100644
--- a/cpp.sml
+++ b/cpp.sml
@@ -1,10 +1,11 @@
 fun main [fname] =
 let
   val stream = Stream.streamInit fname
-  val (tkl, fileList) = Tokenizer.tokenize stream []
+  val tkl = Tokenizer.tokenize stream
+  val fileInfo = Stream.convert stream
 in
   List.app
-    (fn (p, x) => (Stream.printPos fileList p; Tokenizer.printToken x)) tkl
+    (fn (p, x) => (Stream.printPos fileInfo p; Tokenizer.printToken x)) tkl
 end
   | main _  = printLn "Expected a signle argument: file name"
 
-- 
cgit v1.2.3