GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 07:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

tb -trees ; rl ; path in gfe ; removed spurious "file not found"

Browse Source
This commit is contained in:
aarne
2006-03-02 09:55:50 +00:00
parent c30936dc16
commit 35aac815db
12 changed files with 79 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Compile/ShellState.hs
View File

@@ -372,6 +372,10 @@ morphoOfLang st = stateMorpho . stateGrammarOfLang st
probsOfLang st = stateProbs . stateGrammarOfLang st
optionsOfLang st = stateOptions . stateGrammarOfLang st
removeLang :: Language -> ShellState -> ShellState
removeLang lang st = purgeShellState $ st{concretes = concs1} where
concs1 = filter ((/=lang) . snd . fst) $ concretes st
-- | the last introduced grammar, stored in options, is the default for operations
firstStateGrammar :: ShellState -> StateGrammar
firstStateGrammar st = errVal (stateAbstractGrammar st) $ do