Added specialized root/2 and root/3 functions in lux/math.

1 files changed, 8 insertions, 8 deletions

diff --git a/stdlib/source/lux/abstract/functor.lux b/stdlib/source/lux/abstract/functor.lux
index 9ba47aaf8..03c10eaaf 100644
--- a/stdlib/source/lux/abstract/functor.lux
+++ b/stdlib/source/lux/abstract/functor.lux
@@ -12,33 +12,33 @@
 (type: #export (Or f g)
   (All [a] (| (f a) (g a))))
 
-(def: #export (sum (^open "f@.") (^open "g@."))
+(def: #export (sum (^open "f\.") (^open "g\."))
   (All [F G] (-> (Functor F) (Functor G) (Functor (..Or F G))))
   (structure
    (def: (map f fa|ga)
      (case fa|ga
        (#.Left fa)
-       (#.Left (f@map f fa))
+       (#.Left (f\map f fa))
        
        (#.Right ga)
-       (#.Right (g@map f ga))))))
+       (#.Right (g\map f ga))))))
 
 (type: #export (And f g)
   (All [a] (& (f a) (g a))))
 
-(def: #export (product (^open "f@.") (^open "g@."))
+(def: #export (product (^open "f\.") (^open "g\."))
   (All [F G] (-> (Functor F) (Functor G) (Functor (..And F G))))
   (structure
    (def: (map f [fa ga])
-     [(f@map f fa)
-      (g@map f ga)])))
+     [(f\map f fa)
+      (g\map f ga)])))
 
 (type: #export (Then f g)
   (All [a] (f (g a))))
 
-(def: #export (compose (^open "f@.") (^open "g@."))
+(def: #export (compose (^open "f\.") (^open "g\."))
   {#.doc "Functor composition."}
   (All [F G] (-> (Functor F) (Functor G) (Functor (..Then F G))))
   (structure
    (def: (map f fga)
-     (f@map (g@map f) fga))))
+     (f\map (g\map f) fga))))