diff options
Diffstat (limited to 'devel/compiler/Eval.hs')
| -rw-r--r-- | devel/compiler/Eval.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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) |