From 3d7d20b7f3fa186a6fd13f28a1382138b1b1b732 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 13 Jul 2018 17:52:39 +0200
Subject: [PATCH] Test: fix lshuffle by providing the "K" combinator.

---
 tests/support/util.tcl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/support/util.tcl b/tests/support/util.tcl
index b3c3abca..181c865f 100644
--- a/tests/support/util.tcl
+++ b/tests/support/util.tcl
@@ -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} {