GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 11:15:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix in the PMCFG generation

Browse Source
This commit is contained in:
krangelov committed 2021-11-26 08:32:00 +01:00
1 parent 857e85c8a1
commit 794e15aca3
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Compile/GeneratePMCFG.hs
+1 -1
View File
@@ -80,7 +80,7 @@ type2metaTerm gr d ms r rs (Table p q) =
count = case allParamValues gr p of count = case allParamValues gr p of
Ok ts -> length ts Ok ts -> length ts
Bad msg -> error msg Bad msg -> error msg
in (ms',(r'-r)*count,T (TTyped p) [(PV pv,t)]) in (ms',r+(r'-r)*count,T (TTyped p) [(PV pv,t)])
type2metaTerm gr d ms r rs ty@(QC q) = type2metaTerm gr d ms r rs ty@(QC q) =
let i = Map.size ms + 1 let i = Map.size ms + 1
in (Map.insert i ty ms,r,Meta i) in (Map.insert i ty ms,r,Meta i)