GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-09-28 13:13:37 -06:00
Code Issues Packages Projects Releases Wiki Activity

eliminate repeated rules

Browse Source
This commit is contained in:
Krasimir Angelov
2026-01-08 08:53:01 +01:00
parent d42614afad
commit 72682d6eb3
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/PGF2/Transactions.hsc
+1 -5
View File
@@ -231,7 +231,6 @@ setConcreteFlag name value = Transaction $ \c_db _ c_revision c_exn ->
type Token = String
type SeqId = Int
type LIndex = Int
type LVar = Int
data LParam = LParam {-# UNPACK #-} !LIndex [(LIndex,LVar)]
@@ -253,14 +252,11 @@ data Symbol
type Quantifiers = [(LVar,Int)]
data Rule = Rule Quantifiers LParam [LParam] LParam [Symbol]
deriving (Eq,Show)
deriving (Eq,Ord,Show)
data PArg = PArg [(LIndex,LIndex)] {-# UNPACK #-} !LParam
deriving (Eq,Show)
data Production = Production [(LVar,LIndex)] [PArg] LParam [SeqId]
deriving (Eq,Show)
createLincat :: Cat -> [String] -> [Rule] -> [Rule] -> Transaction Concr ()
createLincat name fields lindefs linrefs = Transaction $ \c_db c_abstr c_revision c_exn ->
let n_fields = length fields