the parser is not forced to respect the linref while parsing discontious phrases

This commit is contained in:
Krasimir Angelov
2017-08-18 21:23:58 +02:00
parent f71b96da2d
commit 1f3c9d0b17
2 changed files with 34 additions and 45 deletions

View File

@@ -124,11 +124,12 @@ readLanguage = readCId
showLanguage :: Language -> String
showLanguage = showCId
fidString, fidInt, fidFloat, fidVar :: FId
fidString, fidInt, fidFloat, fidVar, fidStart :: FId
fidString = (-1)
fidInt = (-2)
fidFloat = (-3)
fidVar = (-4)
fidStart = (-5)
isPredefFId :: FId -> Bool
isPredefFId = (`elem` [fidString, fidInt, fidFloat, fidVar])