GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

record labels in compiler experiment

Browse Source
This commit is contained in:
aarne
2007-04-20 15:36:33 +00:00
parent 8150faa640
commit 56c4e750a0
3 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
devel/compiler/Eval.hs
View File

@@ -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)