From 832a9361b632331e82a64c07baa560487ca8abde Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 29 Dec 2020 00:38:21 -0400
Subject: Moved "lux/data/number" to "lux/math/number".

---
 lux-jvm/source/program.lux | 56 +++++++++++++++++++++++-----------------------
 1 file changed, 28 insertions(+), 28 deletions(-)

(limited to 'lux-jvm/source/program.lux')

diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index c07ecd3e3..a7e2f395c 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -78,39 +78,39 @@
   ["#::."
    (getClass [] (java/lang/Class java/lang/Object))])
 
-(def: _object-class
+(def: _object_class
   (java/lang/Class java/lang/Object)
-  (host.class-for java/lang/Object))
+  (host.class_for java/lang/Object))
 
-(def: _apply2-args
+(def: _apply2_args
   (Array (java/lang/Class java/lang/Object))
   (|> (host.array (java/lang/Class java/lang/Object) 2)
-      (host.array-write 0 _object-class)
-      (host.array-write 1 _object-class)))
+      (host.array_write 0 _object_class)
+      (host.array_write 1 _object_class)))
 
-(def: _apply5-args
+(def: _apply5_args
   (Array (java/lang/Class java/lang/Object))
   (|> (host.array (java/lang/Class java/lang/Object) 5)
-      (host.array-write 0 _object-class)
-      (host.array-write 1 _object-class)
-      (host.array-write 2 _object-class)
-      (host.array-write 3 _object-class)
-      (host.array-write 4 _object-class)))
+      (host.array_write 0 _object_class)
+      (host.array_write 1 _object_class)
+      (host.array_write 2 _object_class)
+      (host.array_write 3 _object_class)
+      (host.array_write 4 _object_class)))
 
 (def: #export (expander macro inputs lux)
   Expander
   (do try.monad
-    [apply-method (|> macro
+    [apply_method (|> macro
                       (:coerce java/lang/Object)
                       (java/lang/Object::getClass)
-                      (java/lang/Class::getMethod "apply" _apply2-args))]
+                      (java/lang/Class::getMethod "apply" _apply2_args))]
     (:coerce (Try (Try [Lux (List Code)]))
              (java/lang/reflect/Method::invoke
               (:coerce java/lang/Object macro)
               (|> (host.array java/lang/Object 2)
-                  (host.array-write 0 (:coerce java/lang/Object inputs))
-                  (host.array-write 1 (:coerce java/lang/Object lux)))
-              apply-method))))
+                  (host.array_write 0 (:coerce java/lang/Object inputs))
+                  (host.array_write 1 (:coerce java/lang/Object lux)))
+              apply_method))))
 
 (def: #export platform
   ## (IO (Platform Anchor (Bytecode Any) Definition))
@@ -118,7 +118,7 @@
   (do io.monad
     [## host jvm/host.host
      host jvm.host]
-    (wrap {#platform.&file-system (file.async file.default)
+    (wrap {#platform.&file_system (file.async file.default)
            #platform.host host
            ## #platform.phase jvm.generate
            #platform.phase expression.translate
@@ -144,38 +144,38 @@
         [method (|> handler
                     (:coerce java/lang/Object)
                     (java/lang/Object::getClass)
-                    (java/lang/Class::getMethod "apply" _apply5-args))]
+                    (java/lang/Class::getMethod "apply" _apply5_args))]
         (java/lang/reflect/Method::invoke
          (:coerce java/lang/Object handler)
          (|> (host.array java/lang/Object 5)
-             (host.array-write 0 (:coerce java/lang/Object name))
-             (host.array-write 1 (:coerce java/lang/Object phase))
-             (host.array-write 2 (:coerce java/lang/Object archive))
-             (host.array-write 3 (:coerce java/lang/Object parameters))
-             (host.array-write 4 (:coerce java/lang/Object state)))
+             (host.array_write 0 (:coerce java/lang/Object name))
+             (host.array_write 1 (:coerce java/lang/Object phase))
+             (host.array_write 2 (:coerce java/lang/Object archive))
+             (host.array_write 3 (:coerce java/lang/Object parameters))
+             (host.array_write 4 (:coerce java/lang/Object state)))
          method))))
 
-(def: (declare-success! _)
+(def: (declare_success! _)
   (-> Any (Promise Any))
   (promise.future (\ world/program.default exit +0)))
 
 (program: [{service /cli.service}]
   (exec (do promise.monad
           [_ (/.compiler {#/static.host @.jvm
-                          #/static.host-module-extension ".jvm"
+                          #/static.host_module_extension ".jvm"
                           #/static.target (/cli.target service)
-                          #/static.artifact-extension ".class"}
+                          #/static.artifact_extension ".class"}
                          ..expander
                          analysis.bundle
                          ..platform
                          ## generation.bundle
                          translation.bundle
                          (directive.bundle ..extender)
-                         (jvm/program.program jvm/runtime.class-name)
+                         (jvm/program.program jvm/runtime.class_name)
                          [_.Anchor _.Inst _.Definition]
                          ..extender
                          service
                          [packager.package
                           (format (/cli.target service) (\ file.default separator) "program.jar")])]
-          (..declare-success! []))
+          (..declare_success! []))
     (io.io [])))
-- 
cgit v1.2.3