diff options
Diffstat (limited to 'stdlib/source/lux/compiler/default/phase/translation/scheme/extension/common.jvm.lux')
-rw-r--r-- | stdlib/source/lux/compiler/default/phase/translation/scheme/extension/common.jvm.lux | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/translation/scheme/extension/common.jvm.lux b/stdlib/source/lux/compiler/default/phase/translation/scheme/extension/common.jvm.lux index c46a5e82e..65184a7ea 100644 --- a/stdlib/source/lux/compiler/default/phase/translation/scheme/extension/common.jvm.lux +++ b/stdlib/source/lux/compiler/default/phase/translation/scheme/extension/common.jvm.lux @@ -241,27 +241,6 @@ (bundle.install "exit" (unary _.exit/1)) (bundle.install "current-time" (nullary (function (_ _) (runtime.io//current-time (_.string synthesis.unit)))))))) -## [[Box]] -(def: box::new - Unary - (|>> (list) _.vector/*)) - -(def: (box::read box) - Unary - (_.vector-ref/2 box (_.int +0))) - -(def: (box::write [valueO boxO]) - Binary - (runtime.box//write valueO boxO)) - -(def: bundle::box - Bundle - (<| (bundle.prefix "box") - (|> bundle.empty - (bundle.install "new" (unary box::new)) - (bundle.install "read" (unary box::read)) - (bundle.install "write" (binary box::write))))) - ## [Bundles] (def: #export bundle Bundle @@ -272,5 +251,4 @@ (dict.merge bundle::frac) (dict.merge bundle::text) (dict.merge bundle::io) - (dict.merge bundle::box) ))) |