From 14d130f2854a119de69475e6f48f51ed6659953a Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 29 Apr 2026 22:57:01 +0200
Subject: Allow assigning variables refering to aggregates

---
 Rakefile | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Rakefile')

diff --git a/Rakefile b/Rakefile
index c2f5be5..fe96b49 100644
--- a/Rakefile
+++ b/Rakefile
@@ -38,6 +38,7 @@ desc 'Convert previous stage language into the current stage language'
 task :convert do
   File.open('boot/stage22/cl.elna', 'w') do |current_stage|
     seen_proc = false
+    seen_global_var = false
     File.readlines('boot/stage21/cl.elna').each do |line|
       seen_proc = true if line.start_with? 'proc'
       seen_proc = false if line.start_with? 'end'
@@ -46,7 +47,6 @@ task :convert do
 
           proc f();
           var
-          	x: ElnaLocation;
           	y: ElnaLocation;
           begin
           	y.line := 1;
@@ -58,6 +58,11 @@ task :convert do
           begin
           	f();
         FUN
+      elsif line.start_with?('var') && !seen_global_var
+        current_stage << <<~FUN
+          var
+          	x: ElnaLocation;
+        FUN
       else
         current_stage << line
       end
-- 
cgit v1.2.3