diff options
Diffstat (limited to 'Compiler.hs')
-rw-r--r-- | Compiler.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Compiler.hs b/Compiler.hs index 8c32236..d190565 100644 --- a/Compiler.hs +++ b/Compiler.hs @@ -242,6 +242,7 @@ genTValue (TVLambda args body closure) nextnext = do withScope (Map.fromList (zip args (map SIParam [0..]) ++ zip closure (map SIClosure [0..]))) $ do b <- newBlockSwitch b2 <- newBlock + addIns (RNone, IFunctionEntry) ref <- genTValue body b2 switchBlock b2 setTerm $ IRet ref |