Changeset 905

Show
Ignore:
Timestamp:
04/23/08 07:23:07 (9 months ago)
Author:
james
Message:

new stuff

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/modules/extra/jeffk.tcl

    r904 r905  
    4343                                set first_letter [lindex $letters 0] 
    4444                                set last_letter [lindex $letters end] 
    45                                 set letters [lrange 1 end-1] 
     45                                set letters [lrange $letters 1 end-1] 
    4646                                while {[llength $letters] > 0} { 
    4747                                        set index [rand [llength $letters]]