1 files changed, 8 insertions, 8 deletions

diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux
index b9226a891..e099a841b 100644
--- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux
+++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux
@@ -48,19 +48,19 @@
 
 (type: .public (Dictionary k v)
   (Record
-   [#&order (Order k)
+   [#order (Order k)
     #root (Maybe (Node k v))]))
 
 (def: .public (empty order)
   (All (_ k v) (-> (Order k) (Dictionary k v)))
-  [#&order order
+  [#order order
    #root {.#None}])
 
 ... TODO: Doing inneficient access of Order functions due to compiler bug.
 ... TODO: Must improve it as soon as bug is fixed.
 (def: .public (value key dict)
   (All (_ k v) (-> k (Dictionary k v) (Maybe v)))
-  (let [... (open "_#[0]") (the #&order dict)
+  (let [... (open "_#[0]") (the #order dict)
         ]
     (loop (again [node (the #root dict)])
       (case node
@@ -85,7 +85,7 @@
 ... TODO: Must improve it as soon as bug is fixed.
 (def: .public (key? dict key)
   (All (_ k v) (-> (Dictionary k v) k Bit))
-  (let [... (open "_#[0]") (the #&order dict)
+  (let [... (open "_#[0]") (the #order dict)
         ]
     (loop (again [node (the #root dict)])
       (case node
@@ -251,7 +251,7 @@
 
 (def: .public (has key value dict)
   (All (_ k v) (-> k v (Dictionary k v) (Dictionary k v)))
-  (let [(open "_#[0]") (the #&order dict)
+  (let [(open "_#[0]") (the #order dict)
         root' (loop (again [?root (the #root dict)])
                 (case ?root
                   {.#None}
@@ -269,7 +269,7 @@
                                                         root)}))]
 
                                     [_#<                             #left  ..with_left]
-                                    [(order.> (the #&order dict)) #right ..with_right]
+                                    [(order.> (the #order dict)) #right ..with_right]
                                     ))
 
                               ... (_#= reference key)
@@ -474,7 +474,7 @@
 
 (def: .public (lacks key dict)
   (All (_ k v) (-> k (Dictionary k v) (Dictionary k v)))
-  (let [(open "_#[0]") (the #&order dict)
+  (let [(open "_#[0]") (the #order dict)
         [?root found?] (loop (again [?root (the #root dict)])
                          (case ?root
                            {.#Some root}
@@ -566,7 +566,7 @@
   (All (_ k v) (-> (Equivalence v) (Equivalence (Dictionary k v))))
   
   (def: (= reference sample)
-    (let [(open "/#[0]") (the #&order reference)]
+    (let [(open "/#[0]") (the #order reference)]
       (loop (again [entriesR (entries reference)
                     entriesS (entries sample)])
         (case [entriesR entriesS]