From d2dd0830f1743592cf2a78353abaf83af351e331 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 18 Jun 2009 17:33:06 +0000
Subject: [PATCH] the PMCFG lexical categories are not printed out with prefix
 C i.e. CInt,.. to make them different from the same PGF categories

---
 src/PGF/PMCFG.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/PGF/PMCFG.hs b/src/PGF/PMCFG.hs
index c077367ad..150f74342 100644
--- a/src/PGF/PMCFG.hs
+++ b/src/PGF/PMCFG.hs
@@ -90,10 +90,10 @@ ppAlt (Alt ts ps) = ppStrs ts <+> char '/' <+> hsep (map (doubleQuotes . text) p
 ppStrs ss = doubleQuotes (hsep (map text ss))
 
 ppFCat  fcat
-  | fcat == fcatString = text "String"
-  | fcat == fcatInt    = text "Int"
-  | fcat == fcatFloat  = text "Float"
-  | fcat == fcatVar    = text "Var"
+  | fcat == fcatString = text "CString"
+  | fcat == fcatInt    = text "CInt"
+  | fcat == fcatFloat  = text "CFloat"
+  | fcat == fcatVar    = text "CVar"
   | otherwise          = char 'C' <> int fcat
 
 ppFunId funid = char 'F' <> int funid