diff options
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index 0a8b360be..da936e735 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -136,6 +136,8 @@ allLinFields trm = case trm of ---- deprecated isLinLabel l = case l of L (A.IC ('s':cs)) | all isDigit cs -> True + -- peb (28/4-04), for MCFG grammars to work: + L (A.IC cs) | null cs || head cs `elem` ".!" -> True _ -> False -- to gather ultimate cases in a table; preserves pattern list |