diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-02-28 22:41:26 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-03-01 23:14:24 +0100 |
| commit | 9cf052dfebd2c5d62d26d5b46a0d8881d82a7a43 (patch) | |
| tree | 56f5065ee59d69eb3b1f05db4d9ddf69b8219b4f /boot/stage19/cl.elna | |
| parent | 63ecc4e71b9eb43c8fe27d55c26f53e02247ef42 (diff) | |
| download | elna-9cf052dfebd2c5d62d26d5b46a0d8881d82a7a43.tar.gz | |
Pass lexer state explicitly
Diffstat (limited to 'boot/stage19/cl.elna')
| -rw-r--r-- | boot/stage19/cl.elna | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/boot/stage19/cl.elna b/boot/stage19/cl.elna index 76ee09b..ed2937d 100644 --- a/boot/stage19/cl.elna +++ b/boot/stage19/cl.elna @@ -8,6 +8,7 @@ program; (* Stage 19 compiler. *) (* - Aggregates can be allocated on the stack. *) +(* - Procedure return type is parsed. *) type (** @@ -3565,7 +3566,9 @@ begin _elna_lexer_skip_token(); if token_kind = ElnaLexerKind.arrow then - result^.return_type := elna_parser_type_expression() + result^.return_type := elna_parser_type_expression(); + _elna_lexer_read_token(@token_kind); + _elna_lexer_skip_token() else result^.return_type := nil end; |