*** empty log message ***

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

src/Makefile

@@ -46,7 +46,7 @@ shell:
 clean: 
 	rm -rf */*.o */*.hi *.o *.hi */*.ghi *.ghi *~ */*~
 hugs:
-	hugs -E"open -a emacs" -P$(HUGSINCLUDE)
+	hugs -h10M -P$(HUGSINCLUDE)
 ghci-nofud:
 	$(GHCI) $(GHCFLAGS) $(GHCINCLUDENOFUD)
 today:

src/Today.hs

@@ -1 +1 @@
-module Today where today = "Ons Apr 28 09:03:36 CEST 2004"
+module Today where today = "Tor Apr 29 09:41:39 CEST 2004"