From bf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 Mar 2022 08:37:23 -0400
Subject: De-sigil-ification: prefix :

---
 .../luxc/lang/translation/jvm/extension/host.lux   | 28 +++++++++++-----------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
index f98188196..820e230db 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
@@ -164,7 +164,7 @@
 (def: conversion_bundle
   Bundle
   (<| (bundle.prefix "conversion")
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "double-to-float" (unary conversion::double_to_float))
           (bundle.install "double-to-int" (unary conversion::double_to_int))
           (bundle.install "double-to-long" (unary conversion::double_to_long))
@@ -295,7 +295,7 @@
 (def: int_bundle
   Bundle
   (<| (bundle.prefix (reflection.reflection reflection.int))
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "+" (binary int::+))
           (bundle.install "-" (binary int::-))
           (bundle.install "*" (binary int::*))
@@ -314,7 +314,7 @@
 (def: long_bundle
   Bundle
   (<| (bundle.prefix (reflection.reflection reflection.long))
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "+" (binary long::+))
           (bundle.install "-" (binary long::-))
           (bundle.install "*" (binary long::*))
@@ -333,7 +333,7 @@
 (def: float_bundle
   Bundle
   (<| (bundle.prefix (reflection.reflection reflection.float))
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "+" (binary float::+))
           (bundle.install "-" (binary float::-))
           (bundle.install "*" (binary float::*))
@@ -346,7 +346,7 @@
 (def: double_bundle
   Bundle
   (<| (bundle.prefix (reflection.reflection reflection.double))
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "+" (binary double::+))
           (bundle.install "-" (binary double::-))
           (bundle.install "*" (binary double::*))
@@ -359,7 +359,7 @@
 (def: char_bundle
   Bundle
   (<| (bundle.prefix (reflection.reflection reflection.char))
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "=" (binary char::=))
           (bundle.install "<" (binary char::<))
           )))
@@ -615,7 +615,7 @@
 (def: object_bundle
   Bundle
   (<| (bundle.prefix "object")
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "null" (nullary object::null))
           (bundle.install "null?" (unary object::null?))
           (bundle.install "synchronized" (binary object::synchronized))
@@ -794,17 +794,17 @@
 (def: member_bundle
   Bundle
   (<| (bundle.prefix "member")
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (dictionary.merged (<| (bundle.prefix "get")
-                                 (|> (: Bundle bundle.empty)
+                                 (|> (is Bundle bundle.empty)
                                      (bundle.install "static" get::static)
                                      (bundle.install "virtual" get::virtual))))
           (dictionary.merged (<| (bundle.prefix "put")
-                                 (|> (: Bundle bundle.empty)
+                                 (|> (is Bundle bundle.empty)
                                      (bundle.install "static" put::static)
                                      (bundle.install "virtual" put::virtual))))
           (dictionary.merged (<| (bundle.prefix "invoke")
-                                 (|> (: Bundle bundle.empty)
+                                 (|> (is Bundle bundle.empty)
                                      (bundle.install "static" invoke::static)
                                      (bundle.install "virtual" invoke::virtual)
                                      (bundle.install "special" invoke::special)
@@ -834,7 +834,7 @@
     hidden
     
     [_ {synthesis.#Control {synthesis.#Branch {synthesis.#Case _ path}}}]
-    (loop [path (: synthesis.Path path)]
+    (loop [path (is synthesis.Path path)]
       (case path
         (^.or {synthesis.#Pop}
               {synthesis.#Access _}
@@ -1088,7 +1088,7 @@
       (list#mix (function (_ [lux_register type] [jvm_register before])
                   (let [[jvm_register' after] (prepare_argument (n.+ offset lux_register) type jvm_register)]
                     [jvm_register' (|>> before after)]))
-                (: [Register Inst] [offset (|>>)]))
+                (is [Register Inst] [offset (|>>)]))
       product.right))
 
 (def: .public (returnI returnT)
@@ -1228,7 +1228,7 @@
 (def: class_bundle
   Bundle
   (<| (bundle.prefix "class")
-      (|> (: Bundle bundle.empty)
+      (|> (is Bundle bundle.empty)
           (bundle.install "anonymous" class::anonymous)
           )))
 
-- 
cgit v1.2.3