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

romance Inf ; %, included

Browse Source
This commit is contained in:
aarne
2005-05-26 13:18:17 +00:00
parent 71c50e18d3
commit 9a756a3ac1
7 changed files with 503 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Source/GrammarToSource.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/05/25 10:41:59 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.20 $
-- > CVS $Date: 2005/05/26 14:18:17 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.21 $
--
-- From internal source syntax to BNFC-generated (used for printing).
-----------------------------------------------------------------------------
@@ -50,7 +50,7 @@ trModule (i,mo) = case mo of
(mkTopDefs (concatMap trAnyDef (tree2list (jments m)) ++ map trFlag (flags m)))
trExtend :: [Ident] -> P.Extend
trExtend i = ifNull P.NoExt (P.Ext . map tri) i
trExtend i = ifNull P.NoExt (P.Ext . map (P.IAll . tri)) i ---- IAll
---- this has to be completed with other mtys
forName (MTConcrete a) = tri a