Fix error message bug in VM

1 files changed, 1 insertions, 1 deletions

diff --git a/VM.hs b/VM.hs
index 784c93b..b3df10a 100644
--- a/VM.hs
+++ b/VM.hs
@@ -64,7 +64,7 @@ vmRunInstr info@(Info _ _ datas) state@(State { sTempMap = tmap, sArgs = args, s
     IAssign ref -> return (assignRef state dest (findRef tmap ref))
     IParam i ->
         if i < length args then return (assignRef state dest (args !! i))
-            else error $ show closure ++ ", " ++ show i ++ ", param-out-of-range"
+            else error $ show args ++ ", " ++ show i ++ ", param-out-of-range"
     IClosure i ->
         if i < length closure then return (assignRef state dest (closure !! i))
             else error $ show closure ++ ", " ++ show i ++ ", closure-out-of-range"