home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 5_7.tcl < prev    next >
Text File  |  2003-04-15  |  206b  |  16 lines
  1. #
  2. # Example 5-7
  3. # Deleting a list element by value.
  4. #
  5.  
  6. proc ldelete { list value } {
  7.     set ix [lsearch -exact $list $value]
  8.     if {$ix >= 0} {
  9.         return [lreplace $list $ix $ix]
  10.     } else {
  11.         return $list
  12.     }
  13. }
  14.  
  15.  
  16.