zeromq.examples: cleanup wuserver example.

2013-09-18 15:32:06 -07:00 · 2013-09-18 15:32:06 -07:00 · 183508b852
parent 0b5458da29
commit 183508b852
1 changed files with 12 additions and 10 deletions
--- 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
+            t
+        ] loop
+
+        drop
    ] with-destructors ;

 MAIN: wuserver