From 7e44ee8a2cfb14e35f6283a9eb8d6a2ddc8bd99a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 31 Jul 2018 20:22:15 -0400
Subject: Now implementing process functionality in stdlib instead of the
 compiler.

---
 .../lang/translation/common-lisp/runtime.jvm.lux   | 44 +---------------------
 1 file changed, 1 insertion(+), 43 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
index c54fde7ce..3e8d2c514 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
@@ -296,46 +296,6 @@
   (_.progn (list @@io//exit
                  @@io//current-time)))
 
-(def: process//incoming
-  SVar
-  (_.var (lang.normalize-name "process//incoming")))
-
-(runtime: (process//loop _)
-  (_.if (_.not (_.null (@@ process//incoming)))
-    (with-vars [queue process]
-      (_.let (list [queue (@@ process//incoming)])
-        (_.progn (list (_.setq! process//incoming (_.list (list)))
-                       (_.map/3 _.nil
-                                (_.lambda (_.poly (list process))
-                                          (_.funcall (list ..unit) (@@ process)))
-                                (@@ queue))
-                       (process//loop ..unit)))))
-    ..unit))
-
-(runtime: (process//schedule milli-seconds procedure)
-  (_.progn
-   (list
-    (_.if (_.= (_.int 0) (@@ milli-seconds))
-      (_.setq! process//incoming (_.cons (@@ procedure) (@@ process//incoming)))
-      (with-vars [start scheduled now diff _ignored]
-        (_.let (list [start (io//current-time ..unit)])
-          (_.labels (list [scheduled [(_.poly+ (list) _ignored)
-                                      (_.let (list [now (io//current-time ..unit)]
-                                                   [diff (|> (@@ now) (_.- (@@ start)))])
-                                        (_.if (|> (@@ diff) (_.>= (@@ milli-seconds)))
-                                          (_.funcall (list ..unit) (@@ procedure))
-                                          (process//schedule (|> (@@ milli-seconds) (_.- (@@ diff)))
-                                                             (_.function (@@ scheduled)))))]])
-                    (_.setq! process//incoming (_.cons (_.function (@@ scheduled))
-                                                       (@@ process//incoming)))))))
-    ..unit)))
-
-(def: runtime//process
-  Runtime
-  (_.progn (list (_.defparameter process//incoming (_.list (list)))
-                 @@process//loop
-                 @@process//schedule)))
-
 (def: runtime
   Runtime
   (_.progn (list runtime//lux
@@ -344,9 +304,7 @@
                  runtime//text
                  runtime//array
                  runtime//box
-                 runtime//io
-                 runtime//process))
-  )
+                 runtime//io)))
 
 (def: #export artifact Text (format prefix //.file-extension))
 
-- 
cgit v1.2.3