From eef20fa404f11fda0b9f73da1a3ee41db3201062 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 29 Nov 2005 15:48:13 +0000
Subject: Added meta variables to transfer front-end and core.

---
 src/Transfer/Interpreter.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Transfer/Interpreter.hs')

diff --git a/src/Transfer/Interpreter.hs b/src/Transfer/Interpreter.hs
index 44618b756..78b004c8d 100644
--- a/src/Transfer/Interpreter.hs
+++ b/src/Transfer/Interpreter.hs
@@ -16,6 +16,7 @@ data Value = VStr String
            | VClos Env Exp
            | VCons CIdent [Value]
            | VPrim (Value -> Value)
+           | VMeta Integer
   deriving (Show)
 
 instance Show (a -> b) where
@@ -128,6 +129,7 @@ eval env x = case x of
   EType  -> VType
   EStr str  -> VStr str
   EInt n  -> VInt n
+  EMeta (TMeta t) -> VMeta (read $ drop 1 t)
 
 firstMatch :: Value -> [Case] -> Maybe (Exp,[(CIdent,Value)])
 firstMatch _ [] = Nothing
-- 
cgit v1.2.3