a first version of PGF.AbsCompute

src/PGF/Macros.hs

@@ -38,6 +38,11 @@ lookDef :: PGF -> CId -> Expr
 lookDef pgf f = 
   snd $ lookMap (error $ "lookDef " ++ show f) f (funs (abstract pgf))
 
+isData :: PGF -> CId -> Bool
+isData pgf f = case Map.lookup f (funs (abstract pgf)) of
+  Just (_,EMeta 0) -> True ---- the encoding of data constrs
+  _ -> False
+
 lookValCat :: PGF -> CId -> CId
 lookValCat pgf = valCat . lookType pgf