From 8003796cce911fa7c4958a83a2c55e6cbe16c8aa Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 27 Nov 2017 02:34:07 -0400
Subject: - Got rid of even more dots.

---
 stdlib/source/lux.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index e5da4a105..65167b8e6 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -4602,9 +4602,9 @@
     _
     (fail "Wrong syntax for open")))
 
-(macro: #export (|>. tokens)
+(macro: #export (|>> tokens)
   {#;doc "## Similar to the piping macro, but rather than taking an initial object to work on, creates a function for taking it.
-          (|>. (map int/encode) (interpose \" \") (fold text/compose \"\"))
+          (|>> (map int/encode) (interpose \" \") (fold text/compose \"\"))
           ## =>
           (function [<arg>]
             (fold text/compose \"\"
@@ -4614,9 +4614,9 @@
     [g!arg (gensym "arg")]
     (return (list (` (function [(~ g!arg)] (|> (~ g!arg) (~@ tokens))))))))
 
-(macro: #export (<|. tokens)
+(macro: #export (<<| tokens)
   {#;doc "## Similar to the piping macro, but rather than taking an initial object to work on, creates a function for taking it.
-          (<|. (fold text/compose \"\") (interpose \" \") (map int/encode))
+          (<<| (fold text/compose \"\") (interpose \" \") (map int/encode))
           ## =>
           (function [<arg>]
             (fold text/compose \"\"
@@ -4689,7 +4689,7 @@
              (do Monad<Meta>
                [*defs (exported-defs module-name)
                 _ (test-referrals module-name *defs -defs)]
-               (wrap (filter (|>. (is-member? -defs) not) *defs)))
+               (wrap (filter (|>> (is-member? -defs) not) *defs)))
 
              #Nothing
              (wrap (list)))
@@ -4728,11 +4728,11 @@
                    (list (' #refer) (' #all))
                    
                    (#Only defs)
-                   (list (' #refer) (`' (#only (~@ (map (|>. [""] symbol$)
+                   (list (' #refer) (`' (#only (~@ (map (|>> [""] symbol$)
                                                         defs)))))
                    
                    (#Exclude defs)
-                   (list (' #refer) (`' (#exclude (~@ (map (|>. [""] symbol$)
+                   (list (' #refer) (`' (#exclude (~@ (map (|>> [""] symbol$)
                                                            defs)))))
                    
                    #Nothing
@@ -5881,7 +5881,7 @@
                      ((~ (symbol$ ["" name])) (~ g!tokens) (~ g!compiler))
                      (~ anns)
                      (case (~ g!tokens)
-                       (^ (list (~@ (map (|>. [""] symbol$) args))))
+                       (^ (list (~@ (map (|>> [""] symbol$) args))))
                        (#;Right [(~ g!compiler)
                                  (list (` (~ (replace-syntax rep-env input-template))))])
 
-- 
cgit v1.2.3