mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-29 14:32:51 -06:00
generate and store the ranges for all linearization rules
This commit is contained in:
@@ -52,7 +52,8 @@ pmcfgForm gr t ctxt ty =
|
||||
lins <- mapM str2lin lins
|
||||
(r,rs,_) <- compute params
|
||||
args <- zipWithM tnk2lparam args ctxt
|
||||
return (Production args (LParam r rs) (reverse lins))
|
||||
vars <- getVariables
|
||||
return (Production vars args (LParam r rs) (reverse lins))
|
||||
where
|
||||
tnk2lparam tnk (_,_,ty) = do
|
||||
v <- force tnk
|
||||
|
||||
Reference in New Issue
Block a user