From 9cf052dfebd2c5d62d26d5b46a0d8881d82a7a43 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 28 Feb 2026 22:41:26 +0100 Subject: Pass lexer state explicitly --- boot/stage19/cl.elna | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'boot/stage19') 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; -- cgit v1.2.3