option -mac to vt command (uses open with ps)

src/GF/Devel/Compile/CheckGrammar.hs

@@ -68,7 +68,7 @@ showCheckModule mos m = do
 checkModule :: GF -> SourceModule -> Check SourceModule
 checkModule gf0 (name,mo) = checkIn ("checking module" +++ prt name) $ do
   let gr = gf0 {gfmodules = Map.insert name mo (gfmodules gf0)}
-----  checkRestrictedInheritance gr (name, mo)
+  ----  checkRestrictedInheritance gr (name, mo)
   mo1 <- case mtype mo of
     MTAbstract -> judgementOpModule (checkAbsInfo gr name) mo
     MTGrammar -> entryOpModule (checkResInfo gr name) mo
@@ -83,7 +83,6 @@ checkModule gf0 (name,mo) = checkIn ("checking module" +++ prt name) $ do
 
     MTInstance iname -> do
       intf <- checkErr $ lookupModule gr iname
-      -- checkCompleteInstance abs mo -- this is done in Rebuild
       entryOpModule  (checkResInfo gr name) mo
 
   return $ (name, mo1)

src/GF/Devel/Compile/SourceToGF.hs

@@ -266,7 +266,8 @@ transResDef x = case x of
     returnl [(f, resOper pt pe) | (f,(pt,pe)) <- defs']
 
   DefFlag defs -> liftM (Right . concat) $ mapM transFlagDef defs
-  _ -> Bad $ "illegal definition form in resource" +++ printTree x
+  _ -> return $ Left [] ----
+----  _ -> Bad $ "illegal definition form in resource" +++ printTree x
  where
 
    mkParamDefs (p,pars) =
@@ -317,7 +318,8 @@ transCncDef x = case x of
     let defs2 = [(f, termInPattern t) | (f,(_,Yes t)) <- defs']
     returnl [(f, G.CncFun Nothing (yes t) nope) | (f,t) <- defs2]
 -}
-  _ -> errIn ("illegal definition in concrete syntax:") $ transResDef x
+  _ -> return $ Left [] ----
+----  _ -> errIn ("illegal definition in concrete syntax:") $ transResDef x
 
 transPrintDef :: Def -> Err [(Ident,G.Term)]
 transPrintDef x = case x of