diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-23 09:54:02 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-23 09:54:02 +0000 |
| commit | 4c14927914ef2ba97aee2d2ab99b48daffdd68bc (patch) | |
| tree | ab89a461ff774232f5e2b98f8a216f6faa4f4c25 /src-3.0/GF/GFCC/Raw | |
| parent | 6027c10a0ce4b9c6282276125876092ffadac027 (diff) | |
remove the deprecated RP constructor in GFCC
Diffstat (limited to 'src-3.0/GF/GFCC/Raw')
| -rw-r--r-- | src-3.0/GF/GFCC/Raw/ConvertGFCC.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src-3.0/GF/GFCC/Raw/ConvertGFCC.hs b/src-3.0/GF/GFCC/Raw/ConvertGFCC.hs index d72d74b77..7f5e0ba00 100644 --- a/src-3.0/GF/GFCC/Raw/ConvertGFCC.hs +++ b/src-3.0/GF/GFCC/Raw/ConvertGFCC.hs @@ -136,7 +136,6 @@ toTerm e = case e of App "S" es -> S (lmap toTerm es) App "FV" es -> FV (lmap toTerm es) App "P" [e,v] -> P (toTerm e) (toTerm v) - App "RP" [e,v] -> RP (toTerm e) (toTerm v) ---- App "W" [AStr s,v] -> W s (toTerm v) App "A" [AInt i] -> V (fromInteger i) App f [] -> F (mkCId f) @@ -203,7 +202,6 @@ fromTerm e = case e of S es -> App "S" (lmap fromTerm es) FV es -> App "FV" (lmap fromTerm es) P e v -> App "P" [fromTerm e, fromTerm v] - RP e v -> App "RP" [fromTerm e, fromTerm v] ---- W s v -> App "W" [AStr s, fromTerm v] C i -> AInt (toInteger i) TM _ -> AMet |