diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-29 16:16:19 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-29 16:16:19 +0000 |
| commit | 2505bfc892ed4b2c7f5444be0c8295de121f84b0 (patch) | |
| tree | d9d00d6a547d42e699ab008a0fca5a0180109497 /src/GF/Grammar/Macros.hs | |
| parent | 96bdd18dc3822acf307129bc8348ba7ace563807 (diff) | |
fixing number of interrogatives in English Structural
Diffstat (limited to 'src/GF/Grammar/Macros.hs')
| -rw-r--r-- | src/GF/Grammar/Macros.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs index 7a48e7c3a..58c449901 100644 --- a/src/GF/Grammar/Macros.hs +++ b/src/GF/Grammar/Macros.hs @@ -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 |