Workaround for critcl 3.3.1 bug andreas-kupries/critcl#132. Bump to 1…

….0.2
apnadkarni · Oct 25, 2024 · 82f8c48 · 82f8c48
1 parent d0525c2
commit 82f8c48
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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]]} {