diff options
Diffstat (limited to 'lib/Language/Elna/Glue.hs')
| -rw-r--r-- | lib/Language/Elna/Glue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |