Some fixes.

1 files changed, 26 insertions, 11 deletions

diff --git a/stdlib/source/lux/control/concurrency/process.lux b/stdlib/source/lux/control/concurrency/process.lux
index dd38e3041..04bfbbbae 100644
--- a/stdlib/source/lux/control/concurrency/process.lux
+++ b/stdlib/source/lux/control/concurrency/process.lux
@@ -55,7 +55,10 @@
 
              (host.import: #long java/util/concurrent/ScheduledThreadPoolExecutor
                (new [int])
-               (schedule [java/lang/Runnable long java/util/concurrent/TimeUnit] #io (java/util/concurrent/ScheduledFuture java/lang/Object))))}
+               (schedule [java/lang/Runnable long java/util/concurrent/TimeUnit] #io (java/util/concurrent/ScheduledFuture java/lang/Object))))
+
+      @.js
+      (as-is (host.import: (setTimeout [host.Function host.Number] Any)))}
      
      ## Default
      (type: Process
@@ -79,16 +82,21 @@
        ## Default
        1))
 
-(def: runner
-  (for {@.old
-        (java/util/concurrent/ScheduledThreadPoolExecutor::new (.int ..parallelism))
+(for {@.old
+      (def: runner
+        (java/util/concurrent/ScheduledThreadPoolExecutor::new (.int ..parallelism)))
 
-        @.jvm
-        (java/util/concurrent/ScheduledThreadPoolExecutor::new (.int ..parallelism))}
-       
-       ## Default
-       (: (Atom (List Process))
-          (atom.atom (list)))))
+      @.jvm
+      (def: runner
+        (java/util/concurrent/ScheduledThreadPoolExecutor::new (.int ..parallelism)))
+
+      @.js
+      (as-is)}
+     
+     ## Default
+     (def: runner
+       (Atom (List Process))
+       (atom.atom (list))))
 
 (def: #export (schedule milli-seconds action)
   (-> Nat (IO Any) (IO Any))
@@ -110,7 +118,11 @@
           (case milli-seconds
             0 (java/util/concurrent/Executor::execute runnable runner)
             _ (java/util/concurrent/ScheduledThreadPoolExecutor::schedule runnable (.int milli-seconds) java/util/concurrent/TimeUnit::MILLISECONDS
-                                                                          runner)))}
+                                                                          runner)))
+
+        @.js
+        (io.io (..setTimeout [(host.closure [] (io.run action))
+                              (n.frac milli-seconds)]))}
        
        ## Default
        (do io.monad
@@ -124,6 +136,9 @@
       (as-is)
 
       @.jvm
+      (as-is)
+
+      @.js
       (as-is)}
      
      ## Default