Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
3d7d20b7
Commit
3d7d20b7
authored
Jul 13, 2018
by
antirez
Browse files
Test: fix lshuffle by providing the "K" combinator.
parent
967ad364
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/support/util.tcl
View file @
3d7d20b7
...
...
@@ -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
}
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment