From c2c923276f7ecde1f71e53309dc5d1cc53cd3ff2 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 29 Sep 2024 19:50:55 +0200 Subject: Implement addition and subtraction --- lib/Language/Elna/NameAnalysis.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/Language/Elna/NameAnalysis.hs') diff --git a/lib/Language/Elna/NameAnalysis.hs b/lib/Language/Elna/NameAnalysis.hs index 6cb2f5c..10045e9 100644 --- a/lib/Language/Elna/NameAnalysis.hs +++ b/lib/Language/Elna/NameAnalysis.hs @@ -136,16 +136,16 @@ checkSymbol globalTable identifier expression :: SymbolTable -> AST.Expression -> NameAnalysis () expression _ (AST.LiteralExpression _) = pure () -{- expression globalTable (AST.VariableExpression variableExpression) = - variableAccess globalTable variableExpression -expression globalTable (AST.NegationExpression negation) = - expression globalTable negation expression globalTable (AST.SumExpression lhs rhs) = expression globalTable lhs >> expression globalTable rhs expression globalTable (AST.SubtractionExpression lhs rhs) = expression globalTable lhs >> expression globalTable rhs +{- expression globalTable (AST.VariableExpression variableExpression) = + variableAccess globalTable variableExpression +expression globalTable (AST.NegationExpression negation) = + expression globalTable negation expression globalTable (AST.ProductExpression lhs rhs) = expression globalTable lhs >> expression globalTable rhs -- cgit v1.2.3