summarylogtreecommitdiffstats
path: root/tools.patch
diff options
context:
space:
mode:
authorAndreas Dixius2018-08-03 12:53:11 +0200
committerAndreas Dixius2018-08-03 12:53:11 +0200
commitc8431f68bdf445756fe8fbb3c3fc93509a132ee8 (patch)
treed19694a53849a389c795f917b561b6a34c7ab397 /tools.patch
parentc00ead4d80b881a90146a419834553aac9157bf1 (diff)
downloadaur-c8431f68bdf445756fe8fbb3c3fc93509a132ee8.tar.gz
patch for obsolete tools.tcl lines
Diffstat (limited to 'tools.patch')
-rw-r--r--tools.patch28
1 files changed, 28 insertions, 0 deletions
diff --git a/tools.patch b/tools.patch
new file mode 100644
index 00000000000..9325010e00a
--- /dev/null
+++ b/tools.patch
@@ -0,0 +1,28 @@
+--- a/tcl/tools.tcl 2012-11-22 22:34:00.000000000 +0100
++++ b/tcl/tools.tcl 2018-08-03 12:41:39.614684540 +0200
+@@ -36,6 +36,7 @@
+ return $h
+ }
+
++if {[llength [info commands lreverse]] == 0} {
+ # return the same list in reverse order
+ proc lreverse { list } {
+
+@@ -45,7 +46,9 @@
+ }
+ return $reverse
+ }
++}
+
++if {[llength [info commands lmap]] == 0} {
+ # aply command map on each element of list, returning the a new list
+ proc lmap { list map } {
+ set mapped {}
+@@ -54,6 +57,7 @@
+ }
+ return $mapped
+ }
++}
+
+ # print line wrapped to specified width
+ proc wrappedputs { line width } {