diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2012-08-30 08:09:30 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2012-08-30 08:09:30 +0000 |
| commit | 545e48e88195506347f3b0e1a8bc527a23482768 (patch) | |
| tree | 09f06b1af72c66be5b61579b697fcc46165abd49 /src/compiler/GF/Compile | |
| parent | 3f0b8c55eca8206bc85b2450e908fb2134eb22a5 (diff) | |
another fix for teyjus
Diffstat (limited to 'src/compiler/GF/Compile')
| -rw-r--r-- | src/compiler/GF/Compile/GenerateBC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GenerateBC.hs b/src/compiler/GF/Compile/GenerateBC.hs index d5b18c725..160c13893 100644 --- a/src/compiler/GF/Compile/GenerateBC.hs +++ b/src/compiler/GF/Compile/GenerateBC.hs @@ -17,7 +17,7 @@ type BCLabel = (Int, BCAddr) genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do l1 <- newLabel - emitLabel l1 +{- emitLabel l1 emit Ins_fail l2 <- newLabel l3 <- newLabel @@ -31,7 +31,7 @@ genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do l5 <- newLabel emit (Ins_switch_on_term (addr l4,addr l5,addr l1,addr l4)) emitLabel l4 - emitLabel l5 + emitLabel l5-} return (id,info,addr l1) genFun (id,info@(AbsCat (Just (L _ cont)))) = do l1 <- newLabel |