From 9e23c25e283c551d84913994b5d54a7fcd460aa7 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Thu, 29 Apr 2004 08:22:32 +0000
Subject: *** empty log message ***

---
 src/GF/Canon/CMacros.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF')

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
-- 
cgit v1.2.3