msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixing number of interrogatives in English Structural

Browse Source
This commit is contained in:
aarne
2008-05-29 16:16:19 +00:00
parent 96bdd18dc3
commit 2505bfc892
4 changed files with 6 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Grammar/AppPredefined.hs
View File

@@ -30,7 +30,7 @@ isInPredefined = err (const True) (const False) . typPredefined
typPredefined :: Ident -> Err Type
typPredefined c@(IC f) = case f of
"Int" -> return typePType
"Float" -> return typePType
"Float" -> return typeType
"Error" -> return typeType
"Ints" -> return $ mkFunType [cnPredef "Int"] typePType
"PBool" -> return typePType

3
src/GF/Grammar/Macros.hs
View File

@@ -307,6 +307,9 @@ isTypeInts ty = case ty of
constPredefRes :: String -> Term
constPredefRes s = Q (IC "Predef") (zIdent s)
constPredefAbs :: String -> Term
constPredefAbs s = Q (IC "Predef") (zIdent s)
isPredefConstant :: Term -> Bool
isPredefConstant t = case t of
Q (IC "Predef") _ -> True