Re-named "do_to" to "to".

6 files changed, 32 insertions, 31 deletions

diff --git a/stdlib/source/library/lux/ffi.jvm.lux b/stdlib/source/library/lux/ffi.jvm.lux
index 43fcd5c3c..f465089d7 100644
--- a/stdlib/source/library/lux/ffi.jvm.lux
+++ b/stdlib/source/library/lux/ffi.jvm.lux
@@ -1461,7 +1461,7 @@
               body <code>.any])
     (in (list (` ("jvm object synchronized" (, lock) (, body)))))))
 
-(def .public do_to
+(def .public to
   (syntax (_ [obj <code>.any
               methods (<>.some partial_call^)])
     (with_symbols [g!obj]
diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux
index 99158d8a9..e9385c61a 100644
--- a/stdlib/source/library/lux/ffi.old.lux
+++ b/stdlib/source/library/lux/ffi.old.lux
@@ -1315,7 +1315,7 @@
               body <code>.any])
     (in (list (` ("jvm object synchronized" (, lock) (, body)))))))
 
-(def .public do_to
+(def .public to
   (syntax (_ [obj <code>.any
               methods (<>.some partial_call^)])
     (with_symbols [g!obj]
diff --git a/stdlib/source/library/lux/meta.lux b/stdlib/source/library/lux/meta.lux
index 611028e8e..a1bb5d944 100644
--- a/stdlib/source/library/lux/meta.lux
+++ b/stdlib/source/library/lux/meta.lux
@@ -242,7 +242,8 @@
       (case (|> lux
                 (the [.#type_context .#var_bindings])
                 (type_variable var))
-        (^.or {.#None} {.#Some {.#Var _}})
+        (^.or {.#None}
+              {.#Some {.#Var _}})
         {try.#Success [lux type]}
 
         {.#Some type'}
diff --git a/stdlib/source/library/lux/meta/target/jvm/loader.lux b/stdlib/source/library/lux/meta/target/jvm/loader.lux
index cb423bba7..627b10cd5 100644
--- a/stdlib/source/library/lux/meta/target/jvm/loader.lux
+++ b/stdlib/source/library/lux/meta/target/jvm/loader.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except)
-   ["[0]" ffi (.only import object do_to)]
+   ["[0]" ffi (.only import object to)]
    [abstract
     [monad (.only do)]]
    [control
@@ -76,10 +76,10 @@
                                           (java/lang/Integer::TYPE)))
                         (ffi.write! 3 (as <elemT>
                                           (java/lang/Integer::TYPE))))]
-      (do_to (java/lang/Class::getDeclaredMethod (ffi.as_string "defineClass")
-                                                 signature
-                                                 (ffi.class_for java/lang/ClassLoader))
-        (java/lang/reflect/AccessibleObject::setAccessible true)))))
+      (to (java/lang/Class::getDeclaredMethod (ffi.as_string "defineClass")
+                                              signature
+                                              (ffi.class_for java/lang/ClassLoader))
+          (java/lang/reflect/AccessibleObject::setAccessible true)))))
 
 (def .public (define class_name bytecode loader)
   (-> Text Binary java/lang/ClassLoader (Try java/lang/Object))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux
index 1212056f5..0e1ec0f97 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except Definition)
-   ["[0]" ffi (.only import do_to object)]
+   ["[0]" ffi (.only import object)]
    [abstract
     [monad (.only do)]]
    [control
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
index 63e347408..b783f1262 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except Module Definition)
-   ["[0]" ffi (.only import do_to)]
+   ["[0]" ffi (.only import to)]
    [abstract
     ["[0]" monad (.only Monad do)]]
    [control
@@ -136,19 +136,19 @@
 (def (manifest program)
   (-> (Maybe unit.ID) java/util/jar/Manifest)
   (let [manifest (java/util/jar/Manifest::new)
-        attrs (do_to (java/util/jar/Manifest::getMainAttributes manifest)
-                (java/util/jar/Attributes::put (java/util/jar/Attributes$Name::MANIFEST_VERSION)
-                                               (ffi.as_string ..manifest_version)))]
+        attrs (to (java/util/jar/Manifest::getMainAttributes manifest)
+                  (java/util/jar/Attributes::put (java/util/jar/Attributes$Name::MANIFEST_VERSION)
+                                                 (ffi.as_string ..manifest_version)))]
     (exec
       (case program
         {.#Some program}
-        (do_to attrs
-          (java/util/jar/Attributes::put (java/util/jar/Attributes$Name::MAIN_CLASS)
-                                         (|> program
-                                             runtime.class_name
-                                             name.internal
-                                             name.external
-                                             ffi.as_string)))
+        (to attrs
+            (java/util/jar/Attributes::put (java/util/jar/Attributes$Name::MAIN_CLASS)
+                                           (|> program
+                                               runtime.class_name
+                                               name.internal
+                                               name.external
+                                               ffi.as_string)))
         
         {.#None}
         attrs)
@@ -165,10 +165,10 @@
     (do try.monad
       [_ (java/util/jar/JarOutputStream::putNextEntry (java/util/jar/JarEntry::new (ffi.as_string class_path))
                                                       sink)]
-      (in (do_to sink
-            (java/util/zip/ZipOutputStream::write content (ffi.as_int +0) (ffi.as_int (.int (binary.size content))))
-            (java/io/Flushable::flush)
-            (java/util/zip/ZipOutputStream::closeEntry))))))
+      (in (to sink
+              (java/util/zip/ZipOutputStream::write content (ffi.as_int +0) (ffi.as_int (.int (binary.size content))))
+              (java/io/Flushable::flush)
+              (java/util/zip/ZipOutputStream::closeEntry))))))
 
 (def (write_module static necessary_dependencies [module output] sink)
   (-> Context (Set unit.ID) [module.ID Output] java/util/jar/JarOutputStream
@@ -260,10 +260,10 @@
                 (let [[entry_size entry_data] (read_jar_entry entry input)]
                   (again (set.has entry_path entries)
                          duplicates
-                         (do_to sink
-                           (java/util/zip/ZipOutputStream::write entry_data (ffi.as_int +0) (ffi.as_int (.int entry_size)))
-                           (java/io/Flushable::flush)
-                           (java/util/zip/ZipOutputStream::closeEntry)))))
+                         (to sink
+                             (java/util/zip/ZipOutputStream::write entry_data (ffi.as_int +0) (ffi.as_int (.int entry_size)))
+                             (java/io/Flushable::flush)
+                             (java/util/zip/ZipOutputStream::closeEntry)))))
               (again entries
                      duplicates
                      sink))))))))
@@ -286,9 +286,9 @@
                                                 [(set.empty text.hash)
                                                  (set.empty text.hash)
                                                  sink]))
-       .let [_ (do_to sink
-                 (java/io/Flushable::flush)
-                 (java/io/Closeable::close))]]
+       .let [_ (to sink
+                   (java/io/Flushable::flush)
+                   (java/io/Closeable::close))]]
       (in (|> buffer
               java/io/ByteArrayOutputStream::toByteArray
               {.#Left})))))