syntax for inaccessible patterns in GF

src/compiler/GF/Compile/Abstract/TC.hs

@@ -241,6 +241,7 @@ checkBranch th tenv b@(ps,t) ty = errIn ("branch" +++ show b) $
      PFloat n -> (EFloat n : ps, i, g, k)
      PP m c xs -> (mkApp (Q m c) xss : ps, j, g',k') 
                     where (xss,j,g',k') = foldr p2t ([],i,g,k) xs
+     PTilde t -> (t : ps, i, g, k)
      _ -> error $ render (text "undefined p2t case" <+> ppPatt Unqualified 0 p <+> text "in checkBranch")
 
   upd x k g = (x, VGen k x) : g --- hack to recognize pattern variables

src/compiler/GF/Compile/GrammarToPGF.hs

@@ -145,6 +145,7 @@ mkPatt scope p =
     A.PInt i    -> (  scope,C.PLit (C.LInt (fromIntegral i)))
     A.PFloat f  -> (  scope,C.PLit (C.LFlt f))
     A.PString s -> (  scope,C.PLit (C.LStr s))
+    A.PTilde t  -> (  scope,C.PTilde (mkExp scope t))
 
 
 mkContext :: [Ident] -> A.Context -> ([Ident],[C.Hypo])