1 files changed, 1 insertions, 0 deletions
diff --git a/VM.hs b/VM.hs
index 4b0a1e0..dfa4c74 100644
--- a/VM.hs
+++ b/VM.hs
@@ -77,6 +77,7 @@ vmRunInstr info@(Info bbmap gfds datas) state@(State tmap (args, closure)) (dest
             obj -> error $ "VM: Cannot call non-closure object: " ++ show obj
     IAllocClo name clrefs -> return (assignRef state dest (RVClosure name (map (findRef tmap) clrefs)))
     IDiscard _ -> return state
+    IFunctionEntry -> return state
 
 vmRunTerm :: Info -> State -> Terminator -> IO (RunValue, State)
 vmRunTerm info@(Info bbmap _ _) state@(State tmap _) term = case term of