diff options
| author | bringert <bringert@cs.chalmers.se> | 2008-01-07 21:31:45 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2008-01-07 21:31:45 +0000 |
| commit | ad355515b0535dd9ae08ff6ae11664cecda113cd (patch) | |
| tree | 320048acc5c1ac702aed4d52df164a23e6d6601a /src/GF/GFCC | |
| parent | ff9e6404b80bda8d52a57454f55ca60c6d9ab723 (diff) | |
Change "proj" to "P" in GFCC parse rules to save space.
Diffstat (limited to 'src/GF/GFCC')
| -rw-r--r-- | src/GF/GFCC/Raw/ConvertGFCC.hs | 4 |
1 files 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 |