diff options
| author | aarne <aarne@chalmers.se> | 2009-06-20 13:50:34 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-20 13:50:34 +0000 |
| commit | beb8cad7d868b5ef1eb74d8f0d50cb689db613ab (patch) | |
| tree | 8c0f93c7f2d26e37d22aa3bac37732336d0614c6 /src/GF/Compile/Compute.hs | |
| parent | 48c755597598fc4656603a90997ebe484488a8f9 (diff) | |
the construct lin C t now replaces lock fields (in source code; still tempor used internally); lock fields removed from english resource as an example
Diffstat (limited to 'src/GF/Compile/Compute.hs')
| -rw-r--r-- | src/GF/Compile/Compute.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/GF/Compile/Compute.hs b/src/GF/Compile/Compute.hs index cf0803d98..062b6251c 100644 --- a/src/GF/Compile/Compute.hs +++ b/src/GF/Compile/Compute.hs @@ -26,7 +26,7 @@ import GF.Grammar.Macros import GF.Grammar.Lookup import GF.Compile.Refresh import GF.Grammar.PatternMatch -import GF.Grammar.Lockfield (isLockLabel) ---- +import GF.Grammar.Lockfield (isLockLabel,unlockRecord) ---- import GF.Grammar.AppPredefined @@ -219,6 +219,10 @@ computeTermOpt rec gr = comput True where (RecType rs, RecType ss) -> plusRecType r' s' _ -> return $ ExtR r' s' + ELin c r -> do + r' <- comp g r + unlockRecord c r' + T _ _ -> compTable g t V _ _ -> compTable g t |