From d6402046d2294798e8ba8e27be0368f31310f238 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Fri, 22 Nov 2019 22:37:01 +0100
Subject: Fix error message bug in VM

---
 VM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"
-- 
cgit v1.2.3-54-g00ecf