<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/5a00f434437a23365e6728eb297d7361c669a825">https://github.com/macports/macports-base/commit/5a00f434437a23365e6728eb297d7361c669a825</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 5a00f4344 port.tcl: use lset where appropriate
</span>5a00f4344 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 5a00f434437a23365e6728eb297d7361c669a825
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sun Feb 11 08:42:53 2024 +1100
<span style='display:block; white-space:pre;color:#404040;'> port.tcl: use lset where appropriate
</span>---
src/port/port.tcl | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 47699ae80..3450f5dca 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1240,7 +1240,7 @@ proc add_ports_to_portlist_with_defaults {listname ports {overrides ""}} {
</span> foreach port $ports {
if {![dict exists $port options]} {
dict set port options [array get ::global_options]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ports [lreplace ${ports}[set ports {}] $i $i $port]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lset ports $i $port
</span> }
incr i
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1256,7 +1256,7 @@ proc add_ports_to_portlist_with_defaults {listname ports {overrides ""}} {
</span> if {$portname eq ""} {
ui_error "A default port name could not be supplied."
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ports [lreplace ${ports}[set ports {}] $i $i $port]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lset ports $i $port
</span> }
incr i
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2599,7 +2599,7 @@ proc action_dependents { action portlist opts } {
</span> }
set seen($cur_portname) 1
incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lset pos_stack end $cur_pos
</span> if {[info exists dependentsof($cur_portname)]} {
lappend portstack $dependentsof($cur_portname)
lappend pos_stack 0
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2607,7 +2607,7 @@ proc action_dependents { action portlist opts } {
</span> continue
}
incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lset pos_stack end $cur_pos
</span> }
} else {
foreach dep $deplist {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2845,7 +2845,7 @@ proc action_deps { action portlist opts } {
</span> puts "${spaces}${cur_portname}${cyclic_marker}"
}
incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lset pos_stack end $cur_pos
</span> if {$cyclic_marker eq ""} {
if {[dict exists $depsof $cur_portname]} {
# Mark as currently processing this port's deps
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2860,7 +2860,7 @@ proc action_deps { action portlist opts } {
</span> continue
}
incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ lset pos_stack end $cur_pos
</span> }
set separator "--\n"
}
</pre><pre style='margin:0'>
</pre>