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

started Finnish paradigms (still dummy); exper with non-precomuted gfr

Browse Source
This commit is contained in:
aarne
2005-06-14 19:09:56 +00:00
parent 9ae17accd7
commit a630a55e30
5 changed files with 407 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Compile/Optimize.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/06/14 15:43:03 $
-- > CVS $Date: 2005/06/14 20:09:57 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.16 $
-- > CVS $Revision: 1.17 $
--
-- Top-level partial evaluation for GF source modules.
-----------------------------------------------------------------------------
@@ -93,7 +93,7 @@ evalResInfo optres gr (c,info) = case info of
_ -> return info
where
comp = computeConcrete gr
comp = if optres then computeConcrete gr else computeConcreteRec gr
eIn cat = errIn ("Error optimizing" +++ cat +++ prt c +++ ":")
@@ -127,7 +127,6 @@ evalCncInfo gr cnc abs (c,info) = case info of
_ -> return (c,info)
where
comp = computeConcrete gr
pEval = partEval gr
eIn cat = errIn ("Error optimizing" +++ cat +++ prt c +++ ":")