aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux14
1 files changed, 0 insertions, 14 deletions
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 3750bc674..c54fde7ce 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
@@ -266,19 +266,6 @@
(list @@array//get
@@array//put)))
-(runtime: (atom//compare-and-swap atom old new)
- (with-vars [temp]
- (_.let (list [temp (_.svref (@@ atom) (_.int 0))])
- (_.if (_.eq (@@ old) (@@ temp))
- (_.progn
- (list (_.setf! (_.svref (@@ atom) (_.int 0)) (@@ new))
- (_.bool #1)))
- (_.bool #0)))))
-
-(def: runtime//atom
- Runtime
- @@atom//compare-and-swap)
-
(runtime: (box//write value box)
(_.progn
(list
@@ -356,7 +343,6 @@
runtime//adt
runtime//text
runtime//array
- runtime//atom
runtime//box
runtime//io
runtime//process))