From fcbc004aa664c862d9de944eeb4da7ded68bf0c0 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 20 Apr 2007 15:36:33 +0000
Subject: record labels in compiler experiment

---
 devel/compiler/Eval.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'devel/compiler/Eval.hs')

diff --git a/devel/compiler/Eval.hs b/devel/compiler/Eval.hs
index b59fb53f2..f0c4f1303 100644
--- a/devel/compiler/Eval.hs
+++ b/devel/compiler/Eval.hs
@@ -52,8 +52,6 @@ eval e = case e of
     ---- pattern match first
     return $ compVal [] $ VPro t' v' ---- []
 
-  EPro t v -> do
+  EPro t v@(Lab _ i) -> do
     t' <- eval t
-    ---- project first
-    return $ VPro t' (VPar 666) ---- lookup label
-
+    return $ compVal [] $ VPro t' (VPar i)
-- 
cgit v1.2.3