aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/php
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/php')
-rw-r--r--new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux22
-rw-r--r--new-luxc/source/luxc/lang/translation/php/runtime.jvm.lux16
2 files changed, 0 insertions, 38 deletions
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
))