No more #export magic syntax.

1 files changed, 8 insertions, 8 deletions

diff --git a/stdlib/source/library/lux/data/product.lux b/stdlib/source/library/lux/data/product.lux
index 25e6b02d0..9a8d5da7d 100644
--- a/stdlib/source/library/lux/data/product.lux
+++ b/stdlib/source/library/lux/data/product.lux
@@ -7,7 +7,7 @@
      [hash (#+ Hash)]]]])
 
 (template [<name> <doc>]
-  [(def: #export (<name> pair)
+  [(def: .public (<name> pair)
      {#.doc (doc <doc>)}
      (All [left right]
        (-> [left right] <name>))
@@ -19,7 +19,7 @@
   )
 
 ## https://en.wikipedia.org/wiki/Currying
-(def: #export (curry f)
+(def: .public (curry f)
   {#.doc (doc "Converts a 2-argument function into nested single-argument functions.")}
   (All [a b c]
     (-> (-> [a b] c)
@@ -27,7 +27,7 @@
   (function (_ x y)
     (f [x y])))
 
-(def: #export (uncurry f)
+(def: .public (uncurry f)
   {#.doc (doc "Converts nested single-argument functions into a 2-argument function.")}
   (All [a b c]
     (-> (-> a b c)
@@ -36,12 +36,12 @@
     (let [[x y] xy]
       (f x y))))
 
-(def: #export (swap xy)
+(def: .public (swap xy)
   (All [a b] (-> [a b] [b a]))
   (let [[x y] xy]
     [y x]))
 
-(def: #export (apply f g)
+(def: .public (apply f g)
   {#.doc (doc "Apply functions to both sides of a pair.")}
   (All [a b c d]
     (-> (-> a c) (-> b d)
@@ -49,7 +49,7 @@
   (function (_ [x y])
     [(f x) (g y)]))
 
-(def: #export (fork f g)
+(def: .public (fork f g)
   {#.doc (doc "Yields a pair by applying both functions to a single value.")}
   (All [a l r]
     (-> (-> a l) (-> a r)
@@ -57,14 +57,14 @@
   (function (_ x)
     [(f x) (g x)]))
 
-(implementation: #export (equivalence left right)
+(implementation: .public (equivalence left right)
   (All [l r] (-> (Equivalence l) (Equivalence r) (Equivalence [l r])))
 
   (def: (= [rl rr] [sl sr])
     (and (\ left = rl sl)
          (\ right = rr sr))))
 
-(def: #export (hash left right)
+(def: .public (hash left right)
   (All [l r] (-> (Hash l) (Hash r) (Hash [l r])))
   (implementation
    (def: &equivalence