From 0c9799b887e967a55857377dad0d64ad625b47c9 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 20 Nov 2024 17:38:03 +0100
Subject: Adjust stack size based on local variables

---
 lib/Language/Elna/Glue.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Language/Elna/Glue.hs')

diff --git a/lib/Language/Elna/Glue.hs b/lib/Language/Elna/Glue.hs
index 9101ca5..02a9b9f 100644
--- a/lib/Language/Elna/Glue.hs
+++ b/lib/Language/Elna/Glue.hs
@@ -102,7 +102,7 @@ statement localTable (AST.CallStatement (AST.Identifier callName) arguments) = d
         $ Vector.snoc (argumentStatements <> parameterStatements)
         $ CallQuadruple callName
         $ fromIntegral
-        $ Vector.length argumentStatements
+        $ length arguments
 statement localTable (AST.CompoundStatement statements) =
     fold <$> traverse (statement localTable) statements
 statement localTable (AST.IfStatement ifCondition ifStatement elseStatement) = do
-- 
cgit v1.2.3