From c33cfb0574449f074920632e9a9ff6cb78327e76 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Wed, 4 Dec 2024 01:21:14 -0500
Subject: 2024.4, sigh

---
 2024/tcl/lib.tcl | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to '2024/tcl/lib.tcl')

diff --git a/2024/tcl/lib.tcl b/2024/tcl/lib.tcl
index 2968072..048bce5 100644
--- a/2024/tcl/lib.tcl
+++ b/2024/tcl/lib.tcl
@@ -47,3 +47,10 @@ proc sindex {str args} {
   }
   return $ret
 }
+proc lrindex {list args} {
+  set ret {}
+  foreach arg $args {
+    lappend ret [lindex $list {*}$arg]
+  }
+  return $ret
+}
-- 
cgit v1.2.3-70-g09d2