fix: correct an error preventing reading data from a channel with the corresponding '<-' operator

Author: jacopodl

argon/lang/compiler2/compiler2.cpp

@@ -1789,6 +1789,9 @@ void Compiler::CompilePrefix(const node::Unary *unary) {
     this->Expression((const node::Node *) unary->value);
 
     switch (unary->token_type) {
+        case scanner::TokenType::ARROW_LEFT:
+            this->unit_->Emit(vm::OpCode::POPC, &unary->loc);
+            break;
         case scanner::TokenType::EXCLAMATION:
             this->unit_->Emit(vm::OpCode::NOT, &unary->loc);
             break;

argon/lang/parser2/node/node.h

@@ -29,9 +29,6 @@ namespace argon::lang::parser2::node {
         AWAIT,
         BLOCK,
         CALL,
-        CHAN_IN,
-        CHAN_OUT,
-        DEFER,
         DICT,
         ELVIS,
         EXPRESSION,
@@ -74,7 +71,6 @@ namespace argon::lang::parser2::node {
         TRAIT,
         TRAP,
         TUPLE,
-        UNARY,
         UPDATE,
         VARDECL,
         YIELD

argon/lang/parser2/parser2.cpp

@@ -1866,7 +1866,7 @@ Node *Parser::ParseChanOut(Context *context) {
 
     auto expr = this->ParseExpression(context, PeekPrecedence(TokenType::ARROW_LEFT));
 
-    auto *unary = NewNode<Unary>(type_ast_unary_, false, NodeType::CHAN_OUT);
+    auto *unary = NewNode<Unary>(type_ast_prefix_, false, NodeType::PREFIX);
     if (unary == nullptr) {
         Release(expr);
 
@@ -1875,6 +1875,7 @@ Node *Parser::ParseChanOut(Context *context) {
 
     unary->loc.start = start;
     unary->loc.end = expr->loc.end;
+    unary->token_type = TokenType::ARROW_LEFT;
 
     unary->value = (ArObject *) expr;
 
@@ -2783,7 +2784,7 @@ Node *Parser::ParseWalrus(Context *context, node::Node *left) {
                 throw ParserException(itm->loc, kStandardError[29], ":=");
             }
 
-            ListAppend(list, ((const node::Unary*) itm)->value);
+            ListAppend(list, ((const node::Unary *) itm)->value);
         }
 
         multi = true;