Test: fix lshuffle by providing the "K" combinator.

This commit is contained in:
antirez 2018-07-13 17:52:39 +02:00
parent 967ad3643c
commit 3d7d20b7f3

View File

@ -376,6 +376,8 @@ proc stop_write_load {handle} {
catch {exec /bin/kill -9 $handle}
}
proc K { x y } { set x }
# Shuffle a list. From Tcl wiki. Originally from Steve Cohen that improved
# other versions. Code should be under public domain.
proc lshuffle {list} {