delete nextmatcher

Author: kotapiku

elisp/egison-mode.el

@@ -74,11 +74,6 @@
      "\\<match-lambda\\>"
      "\\<match-all\\>"
      "\\<match-all-lambda\\>"
-     "\\<next-match\\>"
-     "\\<next-match-lambda\\>"
-     "\\<next-match-all\\>"
-     "\\<next-match-all-lambda\\>"
-     "\\<next-matcher\\>"
      "\\<matcher\\>"
      "\\<self\\>"
      "\\<algebraic-data-matcher\\>"
@@ -90,7 +85,7 @@
 
      "\\<undefined\\>"
      "\\<something\\>"
-     
+
      "\\\.\\\.\\\."
      "\\\,"
 ;     "'"
@@ -202,10 +197,6 @@
         ((equal "match-lambda" name) 2)
         ((equal "match-all" name) 2)
         ((equal "match-all-lambda" name) 2)
-        ((equal "next-match" name) 2)
-        ((equal "next-match-lambda" name) 2)
-        ((equal "next-match-all" name) 2)
-        ((equal "next-match-all-lambda" name) 2)
         ((equal "matcher" name) 2)
         ((equal "algebraic-data-matcher" name) 2)
         ((equal "pattern-function" name) 2)

hs-src/Language/Egison/Parser.hs

@@ -230,10 +230,6 @@ expr' = (try partialExpr
                          <|> matchExpr
                          <|> matchAllLambdaExpr
                          <|> matchLambdaExpr
-                         <|> nextMatchAllExpr
-                         <|> nextMatchExpr
-                         <|> nextMatchAllLambdaExpr
-                         <|> nextMatchLambdaExpr
                          <|> matcherExpr
                          <|> matcherDFSExpr
                          <|> seqExpr
@@ -329,18 +325,6 @@ matchAllLambdaExpr = keywordMatchAllLambda >> MatchAllLambdaExpr <$> expr <*> ((
 matchLambdaExpr :: Parser EgisonExpr
 matchLambdaExpr = keywordMatchLambda >> MatchLambdaExpr <$> expr <*> matchClauses
 
-nextMatchAllExpr :: Parser EgisonExpr
-nextMatchAllExpr = keywordNextMatchAll >> NextMatchAllExpr <$> expr <*> expr <*> matchClause
-
-nextMatchExpr :: Parser EgisonExpr
-nextMatchExpr = keywordNextMatch >> NextMatchExpr <$> expr <*> expr <*> matchClauses
-
-nextMatchAllLambdaExpr :: Parser EgisonExpr
-nextMatchAllLambdaExpr = keywordNextMatchAllLambda >> NextMatchAllLambdaExpr <$> expr <*> matchClause
-
-nextMatchLambdaExpr :: Parser EgisonExpr
-nextMatchLambdaExpr = keywordNextMatchLambda >> NextMatchLambdaExpr <$> expr <*> matchClauses
-
 matchClauses :: Parser [MatchClause]
 matchClauses = braces $ sepEndBy matchClause whiteSpace
 
@@ -900,10 +884,6 @@ keywordMatchAll             = reserved "match-all"
 keywordMatchAllLambda       = reserved "match-all-lambda"
 keywordMatch                = reserved "match"
 keywordMatchLambda          = reserved "match-lambda"
-keywordNextMatchAll         = reserved "next-match-all"
-keywordNextMatchAllLambda   = reserved "next-match-all-lambda"
-keywordNextMatch            = reserved "next-match"
-keywordNextMatchLambda      = reserved "next-match-lambda"
 keywordMatcher              = reserved "matcher"
 keywordMatcherDFS           = reserved "matcher-dfs"
 keywordDo                   = reserved "do"

hs-src/Language/Egison/Types.hs

@@ -256,11 +256,6 @@ data EgisonExpr =
   | MatchLambdaExpr EgisonExpr [MatchClause]
   | MatchAllLambdaExpr EgisonExpr [MatchClause]
 
-  | NextMatchExpr EgisonExpr EgisonExpr [MatchClause]
-  | NextMatchAllExpr EgisonExpr EgisonExpr MatchClause
-  | NextMatchLambdaExpr EgisonExpr [MatchClause]
-  | NextMatchAllLambdaExpr EgisonExpr MatchClause
-
   | MatcherExpr MatcherInfo
   | MatcherDFSExpr MatcherInfo
   | AlgebraicDataMatcherExpr [(String, [EgisonExpr])]