From 82f8c48824c4a4eece39d85abd1f0ea2354e4462 Mon Sep 17 00:00:00 2001
From: "Ashok P. Nadkarni" <apnmbx-wits@yahoo.com>
Date: Fri, 25 Oct 2024 08:25:38 +0530
Subject: [PATCH] Workaround for critcl 3.3.1 bug
 https://github.com/andreas-kupries/critcl/issues/132. Bump to 1.0.2

---
 src/tarray.critcl | 3 ++-
 src/taversion.tcl | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/tarray.critcl b/src/tarray.critcl
index 3ec871bc..93566517 100644
--- a/src/tarray.critcl
+++ b/src/tarray.critcl
@@ -1813,7 +1813,8 @@ proc ta_define_integer_command {procname type typestr getfn op objfn} {
         }
     }
 
-    uplevel 1 [string map [list \
+    # critcl 3.3.1 barfs on uplevel 1. Use tailcall
+    tailcall {*}[string map [list \
                                %PROC% $procname \
                                %TYPE% $type \
                                %TYPESTR% $typestr \
diff --git a/src/taversion.tcl b/src/taversion.tcl
index 06a83cbe..8079357a 100644
--- a/src/taversion.tcl
+++ b/src/taversion.tcl
@@ -1,5 +1,5 @@
 namespace eval tarray {
-    proc version {} {return 1.0.1}
+    proc version {} {return 1.0.2}
     # Print version if this file is the main script. Used during builds.
     # Also check if safe interp in which case argv0 will not be defined
     if {[info exists ::argv0] && [file tail [info script]] eq [file tail [lindex $::argv0 0]]} {