From 18f682e86ebec539ae57a37aac45ecb0eb498a1c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 25 Dec 2019 21:48:58 -0400
Subject: Optimized LuxRuntime::case and fixed a few bugs.

---
 stdlib/source/test/lux/target/jvm.lux | 26 +++-----------------------
 1 file changed, 3 insertions(+), 23 deletions(-)

(limited to 'stdlib/source/test')

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
-- 
cgit v1.2.3