Ignore:
Timestamp:
Apr 10, 2003, 10:48:38 PM (16 years ago)
Author:
landonf
Message:

Use append instead of lappend

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r2435 r2448  
    531531    if {[llength $dlist] > 0} {
    532532                # somebody broke!
    533                 set errstring "Warning: the following items did not execute (for $portname): "
     533                set errstring "Warning: the following items did not execute (for $portname):"
    534534                foreach ditem $dlist {
    535                         lappend errstring [ditem_key $ditem name]
     535                        append errstring " [ditem_key $ditem name]"
    536536                }
    537537                ui_info $errstring
Note: See TracChangeset for help on using the changeset viewer.