diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-04-20 15:36:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-04-20 15:36:33 +0000 |
| commit | fcbc004aa664c862d9de944eeb4da7ded68bf0c0 (patch) | |
| tree | 9ba396d972ad3268d0ea42b689a334b637c074ec /devel/compiler/Eval.hs | |
| parent | fc2c3cf057c15ae94382a81fa2c86a8963caf9ea (diff) | |
record labels in compiler experiment
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) |