diff options
| author | Eduardo Julian | 2018-07-31 18:36:18 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-31 18:36:18 -0400 |
| commit | eea58ee669f69fddf2cef9e1675c41959e2e0a55 (patch) | |
| tree | 5424dab3ef26190958fe4371f3f50995025d31cf /new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux | |
| parent | 748c868680683df1949f62aac274040ac5bf43da (diff) | |
Now implementing atom functionality in stdlib instead of the compiler.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux | 14 |
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)) |