X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fparse.icl;h=7320b1123fde5c4f75e3c29e84cdb5fbed6ef665;hb=0f1c66df34b0f65709756b070884c33b94e6a9ba;hp=fed076078e116810177d82f0577cf5d5c3bfbe94;hpb=3952a068daa6e70d73f7ae9b3b68548289bbef99;p=cc1516.git

diff --git a/src/parse.icl b/src/parse.icl
index fed0760..7320b11 100644
--- a/src/parse.icl
+++ b/src/parse.icl
@@ -178,7 +178,7 @@ derive gEq TokenValue
 satTok :: TokenValue -> Parser Token Token
 satTok t = top >>= \tok=:(pos1, pos2, tv) -> if (eq t tok) 
                                             (return tok) 
-                                            (fail <?> (printToString tv+++printToString t, pos1))
+                                            (fail <?> Unexpected (printToString tv) (pos1, pos2))
 	where
 		eq (IdentToken _) (_, _, IdentToken _) = True
 		eq (NumberToken _) (_, _, NumberToken _) = True