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

*** empty log message ***

Browse Source
This commit is contained in:
peb
2004-06-10 14:37:43 +00:00
parent 3522b2a3cd
commit 652618742a
5 changed files with 34 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/CF/CanonToCF.hs
View File

@@ -1,5 +1,7 @@
module CanonToCF where
import Tracing -- peb 8/6-04
import Operations
import Option
import Ident
@@ -23,7 +25,7 @@ import Monad
-- the abstract module name a that m is of.
canon2cf :: Options -> CanonGrammar -> Ident -> Err CF
canon2cf opts gr c = do
canon2cf opts gr c = tracePrt "#size of CF" (err id (show.length.rulesOfCF)) $ do -- peb 8/6-04
let ms = M.allExtends gr c
a <- M.abstractOfConcrete gr c
let cncs = [m | (n, M.ModMod m) <- M.modules gr, elem n ms]