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

partial evaluator bug fix

Browse Source 
Int was missing from the list of predefined canonical constants.
This commit is contained in:
hallgren
2012-12-18 13:03:20 +00:00
parent 403420be2b
commit c3beefba47
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/Compute/Predef.hs
View File

@@ -70,7 +70,7 @@ predefList =
-- cShow, cRead, cMapStr, cEqVal -- cShow, cRead, cMapStr, cEqVal
(cError,Error), (cError,Error),
-- Canonical values: -- Canonical values:
(cPBool,PBool),(cPFalse,PFalse),(cPTrue,PTrue),(cInts,Ints)] (cPBool,PBool),(cPFalse,PFalse),(cPTrue,PTrue),(cInt,Int),(cInts,Ints)]
--- add more functions!!! --- add more functions!!!
delta f vs = delta f vs =
@@ -93,6 +93,7 @@ delta f vs =
Error -> ap1 VError Error -> ap1 VError
-- Canonical values: -- Canonical values:
PBool -> canonical PBool -> canonical
Int -> canonical
Ints -> canonical Ints -> canonical
PFalse -> canonical PFalse -> canonical
PTrue -> canonical PTrue -> canonical

2
src/compiler/GF/Compile/Compute/Value.hs
View File

@@ -51,5 +51,5 @@ data Predefined = Drop | Take | Tk | Dp | EqStr | Occur | Occurs | ToUpper
{- | Show | Read | ToStr | MapStr | EqVal -} {- | Show | Read | ToStr | MapStr | EqVal -}
| Error | Error
-- Canonical values below: -- Canonical values below:
| PBool | PFalse | PTrue | Ints | PBool | PFalse | PTrue | Int | Ints
deriving (Show,Eq,Ord,Ix,Bounded,Enum) deriving (Show,Eq,Ord,Ix,Bounded,Enum)