X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=lex.dcl;h=a6cf7c661a2927ed12caff506af75875c7fe46d6;hb=d5abf2ad34be35640d0e1b04d4f3da24e4ea9967;hp=e78d495a938dfe2fe934934f3a2bc168333f4329;hpb=6b3981fb80952fe2c510b6f9b849adb0dff77d2c;p=cc1516.git

diff --git a/lex.dcl b/lex.dcl
index e78d495..a6cf7c6 100644
--- a/lex.dcl
+++ b/lex.dcl
@@ -3,10 +3,9 @@ definition module lex
 from Data.Either import :: Either
 from yard import :: Error
 
-:: Token = {
-	line :: Int,
-	column :: Int,
-	token :: TokenValue}
+from AST import :: Pos
+
+:: Token :== (Pos, TokenValue)
 :: TokenValue
 	//Value tokens
 	= IdentToken String // Identifier