From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 lux-jvm/source/luxc/lang/host/jvm.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/host/jvm.lux b/lux-jvm/source/luxc/lang/host/jvm.lux
index 3bb609324..8977c374c 100644
--- a/lux-jvm/source/luxc/lang/host/jvm.lux
+++ b/lux-jvm/source/luxc/lang/host/jvm.lux
@@ -10,7 +10,7 @@
     [data
      [binary {"+" [Binary]}]
      [collection
-      ["[0]" list ("[1]\[0]" monad)]]]
+      ["[0]" list ("[1]#[0]" monad)]]]
     [macro
      ["[0]" code]
      [syntax {"+" [syntax:]}]]
@@ -96,10 +96,10 @@
                    options (<code>.tuple (<>.many <code>.local_identifier))])
   (let [g!type (code.local_identifier type)
         g!none (code.local_identifier none)
-        g!tags+ (list\each code.local_tag options)
+        g!tags+ (list#each code.local_tag options)
         g!_left (code.local_identifier "_left")
         g!_right (code.local_identifier "_right")
-        g!options+ (list\each (function (_ option)
+        g!options+ (list#each (function (_ option)
                                 (` (def: .public (~ (code.local_identifier option))
                                      (~ g!type)
                                      (|> (~ g!none)
@@ -108,26 +108,26 @@
     (in (list& (` (type: .public (~ g!type)
                     (.Record
                      (~ (|> g!tags+
-                            (list\each (function (_ tag)
+                            (list#each (function (_ tag)
                                          (list tag (` .Bit))))
-                            list\conjoint
+                            list#conjoint
                             code.tuple)))))
 
                (` (def: .public (~ g!none)
                     (~ g!type)
                     (~ (|> g!tags+
-                           (list\each (function (_ tag)
+                           (list#each (function (_ tag)
                                         (list tag (` #0))))
-                           list\conjoint
+                           list#conjoint
                            code.tuple))))
 
                (` (def: .public ((~ (code.local_identifier ++)) (~ g!_left) (~ g!_right))
                     (-> (~ g!type) (~ g!type) (~ g!type))
                     (~ (|> g!tags+
-                           (list\each (function (_ tag)
+                           (list#each (function (_ tag)
                                         (list tag (` (or (value@ (~ tag) (~ g!_left))
                                                          (value@ (~ tag) (~ g!_right)))))))
-                           list\conjoint
+                           list#conjoint
                            code.tuple))))
 
                g!options+))))
-- 
cgit v1.2.3