aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux')
-rw-r--r--stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux14
1 files changed, 0 insertions, 14 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux b/stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux
index 2ec83227d..0e082a5d8 100644
--- a/stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux
+++ b/stdlib/source/lux/compiler/default/phase/translation/scheme/runtime.jvm.lux
@@ -284,19 +284,6 @@
(list @@array//get
@@array//put)))
-(runtime: (atom//compare-and-swap atom old new)
- (with-vars [@temp]
- (_.let (list [@temp (_.vector-ref/2 atom (_.int +0))])
- (_.if (_.eq?/2 old @temp)
- (_.begin
- (list (_.vector-set!/3 atom (_.int +0) new)
- (_.bool #1)))
- (_.bool #0)))))
-
-(def: runtime//atom
- Computation
- @@atom//compare-and-swap)
-
(runtime: (box//write value box)
(_.begin
(list
@@ -360,7 +347,6 @@
runtime//adt
runtime//frac
runtime//array
- runtime//atom
runtime//box
runtime//io
runtime//process