From 9a2dea46d103d180c3b0e0780df4f10a8a16f386 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 29 Nov 2005 18:16:33 +0000
Subject: Use rec and sig for records.

---
 src/Transfer/Interpreter.hs | 1 -
 1 file changed, 1 deletion(-)

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

diff --git a/src/Transfer/Interpreter.hs b/src/Transfer/Interpreter.hs
index ee44922a7..90e3a70ca 100644
--- a/src/Transfer/Interpreter.hs
+++ b/src/Transfer/Interpreter.hs
@@ -123,7 +123,6 @@ eval env x = case x of
                                _ -> error $ printValue v ++ " is not a record, "
                                             ++ "cannot get field " ++ printTree id
 
-  EEmptyRec  -> VRec []
   ERecType fts -> VRec $! deepSeqList $! [v `seq` (f,v) | FieldType  f e <- fts,
                                                           let v = eval env e]
   ERec fvs     -> VRec $! deepSeqList $! [v `seq` (f,v) | FieldValue f e <- fvs,
-- 
cgit v1.2.3