diff options
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.lux | 14 |
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 |