nightshade

commit 59ceb6aebfcd759d88ab887870cf76b08cdf40ed
parent d009cb37983355e1fbec089aa2db389c124563c9
Author: citbl <citbl@citbl.org>
Date:   Sat, 13 Jun 2026 19:06:12 +1000

minor clean up

Diffstat:
M
src/parser.adb
 | 
19
++++++++++++-------

1 file changed, 12 insertions(+), 7 deletions(-)
diff --git a/src/parser.adb b/src/parser.adb
@@ -9,10 +9,10 @@ package body Parser is
       return Parser
    is
       P : constant Parser :=
-        (Source      => Source,
-         File_Name   => File_Name,
-         Tokens      => Tokens,
-         Pos         => 1,
+        (Source       => Source,
+         File_Name    => File_Name,
+         Tokens       => Tokens,
+         Pos          => 1,
          Declarations => Declaration_Vectors.Empty_Vector);
    begin
       return P;
@@ -104,7 +104,13 @@ package body Parser is
       E : Expr_Ref;
    begin
       T := Match (P, Str_Literal);
-      E := new Expr'(Kind => String_Literal, Lit_Str => T.Lexeme, File_Name => P.File_Name, Line => T.Line, Col => T.Col);
+      E :=
+        new Expr'
+          (Kind      => String_Literal,
+           Lit_Str   => T.Lexeme,
+           File_Name => P.File_Name,
+           Line      => T.Line,
+           Col       => T.Col);
       return E;
 
    end Parse_Expr;
@@ -198,7 +204,7 @@ package body Parser is
       end loop;
 
       T := Match (P, R_Paren);
-      -- TODO func decl missing return kind parsing
+      -- TODO func decl: missing 'return' type/kind parsing, currently none
       T := Match (P, ColonColon);
 
       loop
@@ -306,4 +312,3 @@ package body Parser is
    end Print_AST;
 
 end Parser;
-