peel head i ; gt nometas ; gf2hs

2004-05-18 20:57:13 +00:00
parent a757409214
commit 0232a283a9
14 changed files with 208 additions and 35 deletions
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -192,6 +192,9 @@ appCons = mkApp . Cn
 appc :: String -> [Term] -> Term
 appc = appCons . zIdent

+appqc :: String -> String -> [Term] -> Term
+appqc q c = mkApp (Q (zIdent q) (zIdent c))
+
 mkLet :: [LocalDef] -> Term -> Term
 mkLet defs t = foldr Let t defs