diff options
author | Eduardo Julian | 2019-12-25 21:48:58 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-12-25 21:48:58 -0400 |
commit | 18f682e86ebec539ae57a37aac45ecb0eb498a1c (patch) | |
tree | cb132eede4471e0c0094cb2dbe19af1b748db976 /stdlib/source/test | |
parent | fa37f5d17184db1ed95949352e71542af8fb4ce1 (diff) |
Optimized LuxRuntime::case and fixed a few bugs.
Diffstat (limited to 'stdlib/source/test')
-rw-r--r-- | stdlib/source/test/lux/target/jvm.lux | 26 |
1 files changed, 3 insertions, 23 deletions
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index ab6cd5867..a4a13cbe4 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -5,14 +5,11 @@ ["." monad (#+ do)]] [control ["." function] - ["." io (#+ IO)] - ["." try (#+ Try)] + ["." io] + ["." try] [concurrency - ["." atom]] - [security - ["!" capability]]] + ["." atom]]] [data - [binary (#+ Binary)] ["." maybe] ["." bit ("#@." equivalence)] [number @@ -31,8 +28,6 @@ ["." row] ["." set] ["." list ("#@." functor)]]] - [world - ["." file (#+ File)]] [math ["." random (#+ Random) ("#@." monad)]] ["_" test (#+ Test)]] @@ -57,21 +52,6 @@ ["#." type (#+ Type) ["." category (#+ Value Object Class)]]]}) -## (def: (write-class! name bytecode) -## (-> Text Binary (IO Text)) -## (let [file-path (format name ".class")] -## (do io.monad -## [outcome (do (try.with @) -## [file (: (IO (Try (File IO))) -## (file.get-file io.monad file.system file-path))] -## (!.use (:: file over-write) bytecode))] -## (wrap (case outcome -## (#try.Success definition) -## (format "Wrote: " (%.text file-path)) - -## (#try.Failure error) -## error))))) - (def: method-modifier ($_ /modifier@compose /method.public |