X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=spl.icl;h=28b95fb9af33f1a3e8752d3141ba1c5c7d5d8a7b;hb=5d40ca411bed8014f9bf081436208d831ac5c972;hp=f398f902e33e858b60fc79b4ca70c26e1ba784f5;hpb=fc38bf6ef5716c685ac316fdf3c42e7afce327eb;p=cc1516.git diff --git a/spl.icl b/spl.icl index f398f90..28b95fb 100644 --- a/spl.icl +++ b/spl.icl @@ -69,7 +69,7 @@ Start w printTokens :: [Token] -> String printTokens ts = concat $ flatten $ map pt ts where - pt ({line,col},token) = [toString line, ":", + pt ({line,col},token) = [toString line, ":", toString col, ": ", printToString token, "\n"] parseArgs :: *World -> (Opts, *World)