From 7d7702c375b8587593b7c81d5132d55d4618cd13 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 28 Sep 2007 07:06:53 +0000 Subject: [PATCH] order of FCFGS in shell state. --- src/GF/Compile/ShellState.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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