core: Add the shuffler words but without primitives.

[factor.git] / extra / zeromq / examples / taskvent.factor

diff --git a/extra/zeromq/examples/taskvent.factor b/extra/zeromq/examples/taskvent.factor
index e4629359502b57718d0bbbcc8c0279b2e95682ce..0532b8c25ca6d4bc56f37a8b656e4488dba63ace 100644 (file)
--- a/extra/zeromq/examples/taskvent.factor
+++ b/extra/zeromq/examples/taskvent.factor
@@ -30,7 +30,7 @@ IN: zeromq.examples.taskvent
             ! Random workload from 1 to 100msecs
             100 random 1 +
             dup [ + ] dip
-            [ pick ] dip "%d" sprintf >byte-array 0 zmq-send
+            pickd "%d" sprintf >byte-array 0 zmq-send
         ] times
         "Total expected cost: %d msec\n" printf