diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-28 07:06:53 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-28 07:06:53 +0000 |
| commit | 7d7702c375b8587593b7c81d5132d55d4618cd13 (patch) | |
| tree | 1e33f1e34e1810c08e15876868941a8f267a60fe | |
| parent | b94cb32a04be23b96dcc8e0ecc1ce5e0dd49cd85 (diff) | |
order of FCFGS in shell state.
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 41bcf50c7..9746c011e 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -263,7 +263,9 @@ updateShellState opts ign mcnc sh ((_,sgr,gr,eenv),rts) = do let fromGFC = snd . snd . Cnv.convertGFC opts (mcfgs, cfgs) = unzip $ map (curry fromGFC cgr) concrs - fcfgs = [(IC id,g) | (CId id,g) <- FCnv.convertGrammar (mkGFCC (C2GFCC.mkCanon2gfccNoUTF8 cgr))] + fcfgs0 = [(IC id,g) | (CId id,g) <- + FCnv.convertGrammar (mkGFCC (C2GFCC.mkCanon2gfccNoUTF8 cgr))] + fcfgs = [(c,g) | c <- concrs, Just g <- [lookup c fcfgs0]] pInfos = zipWith3 Prs.buildPInfo mcfgs (map snd fcfgs) cfgs |