Got the JS compiler to compile fully.

1 files changed, 25 insertions, 26 deletions

diff --git a/stdlib/source/lux/control/concurrency/process.lux b/stdlib/source/lux/control/concurrency/process.lux
index 3b273753a..dd38e3041 100644
--- a/stdlib/source/lux/control/concurrency/process.lux
+++ b/stdlib/source/lux/control/concurrency/process.lux
@@ -117,7 +117,7 @@
          [_ (atom.update (|>> (#.Cons {#creation (.nat ("lux io current-time"))
                                        #delay milli-seconds
                                        #action action}))
-                         runner)]
+                         ..runner)]
          (wrap []))))
 
 (for {@.old
@@ -129,29 +129,28 @@
      ## Default
      (as-is (exception: #export cannot-continue-running-processes)
             
-            (def: #export run!
-              (IO Any)
-              (loop [_ []]
-                (do {@ io.monad}
-                  [processes (atom.read runner)]
-                  (case processes
-                    ## And... we're done!
-                    #.Nil
-                    (wrap [])
-
-                    _
-                    (do @
-                      [#let [now (.nat ("lux io current-time"))
-                             [ready pending] (list.partition (function (_ process)
-                                                               (|> (get@ #creation process)
-                                                                   (n.+ (get@ #delay process))
-                                                                   (n.<= now)))
-                                                             processes)]
-                       swapped? (atom.compare-and-swap processes pending runner)]
-                      (if swapped?
-                        (do @
-                          [_ (monad.map @ (get@ #action) ready)]
-                          (wrap []))
-                        (error! (ex.construct ..cannot-continue-running-processes []))))
-                    ))))
+            (def: #export (run! _)
+              (-> Any (IO Any))
+              (do {@ io.monad}
+                [processes (atom.read ..runner)]
+                (case processes
+                  ## And... we're done!
+                  #.Nil
+                  (wrap [])
+
+                  _
+                  (do @
+                    [#let [now (.nat ("lux io current-time"))
+                           [ready pending] (list.partition (function (_ process)
+                                                             (|> (get@ #creation process)
+                                                                 (n.+ (get@ #delay process))
+                                                                 (n.<= now)))
+                                                           processes)]
+                     swapped? (atom.compare-and-swap processes pending ..runner)]
+                    (if swapped?
+                      (do @
+                        [_ (monad.map @ (get@ #action) ready)]
+                        (run! []))
+                      (error! (ex.construct ..cannot-continue-running-processes []))))
+                  )))
             ))