diff options
| author | peb <unknown> | 2004-04-29 08:22:32 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-04-29 08:22:32 +0000 |
| commit | 9e23c25e283c551d84913994b5d54a7fcd460aa7 (patch) | |
| tree | 8461c772529509613ef5fa0a32d34ecc0b247f78 /src/GF | |
| parent | 51da7e3c0f5e743f3508fa3e6b645f2ccacb81ab (diff) | |
*** empty log message ***
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 |