Adapted new-luxc to latest stdlib changes.

2 files changed, 18 insertions, 18 deletions

diff --git a/new-luxc/source/luxc/lang/translation/jvm.lux b/new-luxc/source/luxc/lang/translation/jvm.lux
index b8c00c8a4..560994256 100644
--- a/new-luxc/source/luxc/lang/translation/jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm.lux
@@ -57,16 +57,16 @@
 
 (def: ClassLoader::defineClass
   Method
-  (case (Class::getDeclaredMethod ["defineClass"
-                                   (|> (host.array (Class Object) 4)
-                                       (host.array-write 0 (:coerce (Class Object) (host.class-for String)))
-                                       (host.array-write 1 (Object::getClass [] (host.array byte 0)))
-                                       (host.array-write 2 (:coerce (Class Object) Integer::TYPE))
-                                       (host.array-write 3 (:coerce (Class Object) Integer::TYPE)))]
+  (case (Class::getDeclaredMethod "defineClass"
+                                  (|> (host.array (Class Object) 4)
+                                      (host.array-write 0 (:coerce (Class Object) (host.class-for String)))
+                                      (host.array-write 1 (Object::getClass (host.array byte 0)))
+                                      (host.array-write 2 (:coerce (Class Object) (Integer::TYPE)))
+                                      (host.array-write 3 (:coerce (Class Object) (Integer::TYPE))))
                                   (host.class-for java/lang/ClassLoader))
     (#error.Success method)
     (do-to method
-      (AccessibleObject::setAccessible [#1]))
+      (AccessibleObject::setAccessible #1))
 
     (#error.Error error)
     (error! error)))
@@ -75,11 +75,11 @@
 
 (def: (define-class class-name bytecode loader)
   (-> Text ByteCode ClassLoader (Error Object))
-  (Method::invoke [loader
-                   (array.from-list (list (:coerce Object class-name)
-                                          (:coerce Object bytecode)
-                                          (:coerce Object (host.long-to-int +0))
-                                          (:coerce Object (host.long-to-int (.int (host.array-length bytecode))))))]
+  (Method::invoke loader
+                  (array.from-list (list (:coerce Object class-name)
+                                         (:coerce Object bytecode)
+                                         (:coerce Object (host.long-to-int +0))
+                                         (:coerce Object (host.long-to-int (.int (host.array-length bytecode))))))
                   ClassLoader::defineClass))
 
 (type: Store (Atom (Dictionary Text ByteCode)))
@@ -124,7 +124,7 @@
 
 (def: (load! name loader)
   (-> Text ClassLoader (Error (Class Object)))
-  (ClassLoader::loadClass [name] loader))
+  (ClassLoader::loadClass name loader))
 
 (def: #export value-field Text "_value")
 (def: #export $Object jvm.Type (type.class "java.lang.Object" (list)))
@@ -143,9 +143,9 @@
 
 (def: (class-value class-name class)
   (-> Text (Class Object) (Error Any))
-  (case (Class::getField [..value-field] class)
+  (case (Class::getField ..value-field class)
     (#error.Success field)
-    (case (Field::get [#.None] field)
+    (case (Field::get #.None field)
       (#error.Success ?value)
       (case ?value
         (#.Some value)
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
index e45a6f8cf..e439ecdd6 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
@@ -149,9 +149,9 @@
      Nullary
      (|>> <const> (_.wrap <type>)))]
 
-  [frac::smallest (_.double Double::MIN_VALUE)            #$.Double]
-  [frac::min      (_.double (f/* -1.0 Double::MAX_VALUE)) #$.Double]
-  [frac::max      (_.double Double::MAX_VALUE)            #$.Double]
+  [frac::smallest (_.double (Double::MIN_VALUE))            #$.Double]
+  [frac::min      (_.double (f/* -1.0 (Double::MAX_VALUE))) #$.Double]
+  [frac::max      (_.double (Double::MAX_VALUE))            #$.Double]
   )
 
 (do-template [<name> <type> <op>]