From a70a170c4b0afc8727edc65dec7382e6a1114a2f Mon Sep 17 00:00:00 2001 From: bringert Date: Mon, 7 Jan 2008 21:31:45 +0000 Subject: [PATCH] Change "proj" to "P" in GFCC parse rules to save space. --- src/GF/GFCC/Raw/ConvertGFCC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/GF/GFCC/Raw/ConvertGFCC.hs b/src/GF/GFCC/Raw/ConvertGFCC.hs index 0636cf5e1..ddb79ab9a 100644 --- a/src/GF/GFCC/Raw/ConvertGFCC.hs +++ b/src/GF/GFCC/Raw/ConvertGFCC.hs @@ -115,7 +115,7 @@ toFName (App f ts) = Name f (lmap toProfile ts) toSyntaxForest (AFlt f) = FFloat f toSymbol :: RExp -> FSymbol -toSymbol (App (CId "proj") [c,n,l]) = FSymCat (expToInt c) (expToInt l) (expToInt n) +toSymbol (App (CId "P") [c,n,l]) = FSymCat (expToInt c) (expToInt l) (expToInt n) toSymbol (AStr t) = FSymTok t toAssoc :: Ord a => (RExp -> a) -> ([RExp] -> b) -> [RExp] -> Assoc a b @@ -276,7 +276,7 @@ fromFName n = case n of fromSyntaxForest (FFloat f) = AFlt f fromSymbol :: FSymbol -> RExp -fromSymbol (FSymCat c l n) = app "proj" [intToExp c, intToExp n, intToExp l] +fromSymbol (FSymCat c l n) = app "P" [intToExp c, intToExp n, intToExp l] fromSymbol (FSymTok t) = AStr t -- ** Utilities