diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-06-21 07:51:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-06-21 07:51:44 +0000 |
| commit | b5539fe0dbb4fc14a3588da20be7f47fad343256 (patch) | |
| tree | 347bfe7769b67b4fe094d5583306436e590d8df9 /src/GF/Compile/ShellState.hs | |
| parent | a3b054778f144926bc6c09ec3e60cc706c41fc8d (diff) | |
romance ImpPlP1 corrected
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 88da1283b..07ddaa97a 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -237,7 +237,8 @@ updateShellState opts ign mcnc sh ((_,sgr,gr),rts) = do concr0 = ifNull Nothing (return . head) concrs notInrts f = notElem f $ map fst rts subcgr = unSubelimCanon cgr - cf's0 <- if oElem noCF opts + cf's0 <- if (not (oElem (iOpt "docf") opts) && -- cf only built with -docf + (oElem noCF opts || not (hasHOAS cgr))) -- or HOAS, if not -nocf then return $ map snd $ cfs sh else mapM (canon2cf opts ign subcgr) newConcrs let cf's = zip newConcrs cf's0 ++ filter toRetain (cfs sh) |