Add methods to threads.

examples/threads.janet

@@ -1,18 +1,24 @@
 (defn worker-main
   [parent]
-  (def name (thread/receive parent))
+  (def name (:receive parent))
+  (def interval (:receive parent))
   (for i 0 10
-    (os/sleep 1)
-    (print "thread " name " wakeup no. " i))
-  (thread/send parent :done))
+    (os/sleep interval)
+    (printf "thread %s wakeup no. %d\n" name i))
+  (:send parent :done))
 
 (defn make-worker
-  [name]
-  (-> (thread/new) (thread/send worker-main) (thread/send name)))
+  [name interval]
+  (-> (thread/new)
+      (:send worker-main)
+      (:send name)
+      (:send interval)))
 
-(def bob (make-worker "bob"))
-(os/sleep 0.5)
-(def joe (make-worker "joe"))
+(def bob (make-worker "bob" 0.2))
+(def joe (make-worker "joe" 0.3))
+(def sam (make-worker "joe" 0.5))
 
-(thread/receive bob)
-(thread/receive joe)
+# Receive out of order
+(:receive bob)
+(:receive sam)
+(:receive joe)