Commit 3d7d20b7 authored by antirez's avatar antirez
Browse files

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

parent 967ad364
...@@ -376,6 +376,8 @@ proc stop_write_load {handle} { ...@@ -376,6 +376,8 @@ proc stop_write_load {handle} {
catch {exec /bin/kill -9 $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 # Shuffle a list. From Tcl wiki. Originally from Steve Cohen that improved
# other versions. Code should be under public domain. # other versions. Code should be under public domain.
proc lshuffle {list} { proc lshuffle {list} {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment