diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/control/concurrency/thread.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/control/concurrency/thread.lux b/stdlib/source/library/lux/control/concurrency/thread.lux index edfc01f8c..0a2a2c547 100644 --- a/stdlib/source/library/lux/control/concurrency/thread.lux +++ b/stdlib/source/library/lux/control/concurrency/thread.lux @@ -129,7 +129,7 @@ ## Default (do {! io.monad} - [now (\ ! map (|>> instant.to_millis .nat) instant.now) + [now (\ ! map (|>> instant.millis .nat) instant.now) _ (atom.update (|>> (#.Item {#creation now #delay milli_seconds #action action})) @@ -158,8 +158,8 @@ _ (do ! - [now (\ ! map (|>> instant.to_millis .nat) instant.now) - #let [[ready pending] (list.partition (function (_ thread) + [now (\ ! map (|>> instant.millis .nat) instant.now) + .let [[ready pending] (list.partition (function (_ thread) (|> (get@ #creation thread) (n.+ (get@ #delay thread)) (n.<= now))) |