X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Flex.icl;h=32ac048b9094785be0e2cb8f7bca06af00bf7505;hb=4932517e2d12cd55922231175bf2f0a06f5b85d6;hp=cbeaf7690b002a62f357b4dc73677a0a5cadfe94;hpb=39ec3b9396a095d914f703163ff02ea5028eea26;p=cc1516.git

diff --git a/src/lex.icl b/src/lex.icl
index cbeaf76..32ac048 100644
--- a/src/lex.icl
+++ b/src/lex.icl
@@ -75,12 +75,3 @@ lex t=:[x:xs] = case get x SingleCharTokens of
 	| isAlpha x = let (v, r) = span isIdent t in ret (IdentToken v) r
 		with isIdent c = isAlphanum c || c == '_'
 	| otherwise = err ("Unexpected character: " +++ toString x)
-
-
-derive gEq TokenValue
-
-(===) :: TokenValue Token -> Bool
-(===) (IdentToken _) (_, IdentToken _) = True
-(===) (NumberToken _) (_, NumberToken _) = True
-(===) (CharToken _) (_, CharToken _) = True
-(===) x (_, y) = gEq {|*|} x y