From eea58ee669f69fddf2cef9e1675c41959e2e0a55 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 31 Jul 2018 18:36:18 -0400
Subject: Now implementing atom functionality in stdlib instead of the
 compiler.

---
 .../lang/translation/php/procedure/common.jvm.lux  | 22 ----------------------
 .../luxc/lang/translation/php/runtime.jvm.lux      | 16 ----------------
 2 files changed, 38 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/php')

diff --git a/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux
index 715d8bf0b..e195130c5 100644
--- a/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux
@@ -338,27 +338,6 @@
 ##           (install "current-time" (nullary (function (_ _)
 ##                                              (runtimeT.io//current-time! runtimeT.unit)))))))
 
-## ## [[Atoms]]
-## (def: atom//new
-##   Unary
-##   (|>> [(_.string runtimeT.atom//field)] (list) _.dict))
-
-## (def: atom//read
-##   Unary
-##   (_.nth (_.string runtimeT.atom//field)))
-
-## (def: (atom//compare-and-swap [atomO oldO newO])
-##   Trinary
-##   (runtimeT.atom//compare-and-swap atomO oldO newO))
-
-## (def: atom-procs
-##   Bundle
-##   (<| (prefix "atom")
-##       (|> (dict.new text.Hash<Text>)
-##           (install "new" (unary atom//new))
-##           (install "read" (unary atom//read))
-##           (install "compare-and-swap" (trinary atom//compare-and-swap)))))
-
 ## ## [[Processes]]
 ## (def: (process//parallelism-level [])
 ##   Nullary
@@ -388,6 +367,5 @@
           ## (dict.merge text-procs)
           ## (dict.merge array-procs)
           ## (dict.merge io-procs)
-          ## (dict.merge atom-procs)
           ## (dict.merge process-procs)
           )))
diff --git a/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux
index d4c14b473..c57bc3d80 100644
--- a/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux
@@ -299,21 +299,6 @@
 ##       @@array//get
 ##       @@array//put))
 
-## (def: #export atom//field Text "_lux_atom")
-
-## (runtime: (atom//compare-and-swap atom old new)
-##   (let [atom//field (_.string atom//field)]
-##     (_.if! (_.= old (_.nth atom//field atom))
-##            ($_ _.then!
-##                (_.set-nth! atom//field new atom)
-##                (_.return! (_.bool #1)))
-##            (_.return! (_.bool #0)))))
-
-## (def: runtime//atom
-##   Runtime
-##   ($_ _.then!
-##       @@atom//compare-and-swap))
-
 ## (runtime: (process//future procedure)
 ##   ($_ _.then!
 ##       (_.import! "threading")
@@ -356,7 +341,6 @@
       ## runtime//bit
       ## runtime//text
       ## runtime//array
-      ## runtime//atom
       ## runtime//io
       ## runtime//process
       ))
-- 
cgit v1.2.3