From eef20fa404f11fda0b9f73da1a3ee41db3201062 Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 29 Nov 2005 15:48:13 +0000 Subject: Added meta variables to transfer front-end and core. --- src/Transfer/Syntax/Skel.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Transfer/Syntax/Skel.hs') diff --git a/src/Transfer/Syntax/Skel.hs b/src/Transfer/Syntax/Skel.hs index 40152c998..4d2dd8f55 100644 --- a/src/Transfer/Syntax/Skel.hs +++ b/src/Transfer/Syntax/Skel.hs @@ -56,6 +56,7 @@ transTree t = case t of EType -> failure t EStr str -> failure t EInt n -> failure t + EMeta -> failure t LetDef i exp0 exp1 -> failure t Case pattern exp -> failure t VVar i -> failure t @@ -129,6 +130,7 @@ transExp t = case t of EType -> failure t EStr str -> failure t EInt n -> failure t + EMeta -> failure t transLetDef :: LetDef -> Result transLetDef t = case t of -- cgit v1.2.3