From 183508b852b81358ec5f2b5ebd9168fd2476d780 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 18 Sep 2013 15:32:06 -0700
Subject: [PATCH] zeromq.examples: cleanup wuserver example.

---
 extra/zeromq/examples/wuserver.factor | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/extra/zeromq/examples/wuserver.factor b/extra/zeromq/examples/wuserver.factor
index 28feb95c38..5d18b06b23 100644
--- a/extra/zeromq/examples/wuserver.factor
+++ b/extra/zeromq/examples/wuserver.factor
@@ -10,16 +10,18 @@ IN: zeromq.examples.wuserver
         ZMQ_PUB <zmq-socket> &dispose
         dup "tcp://*:5556" zmq-bind
         dup "ipc://weather.ipc" zmq-bind
-        random-generator get now timestamp>unix-time >fixnum seed-random [
-            [ t ] [
-                dup
-                100000 random
-                215 random 80 -
-                50 random 10 +
-                "%05d %d %d" sprintf
-                >byte-array 0 zmq-send
-            ] while
-        ] with-random drop
+
+        [
+            dup
+            100000 random
+            215 random 80 -
+            50 random 10 +
+            "%05d %d %d" sprintf
+            >byte-array 0 zmq-send
+            t
+        ] loop
+
+        drop
     ] with-destructors ;
 
 MAIN: wuserver