Commits

Meikel Brandmeyer  committed c4d142a

Replaced .. with ->

* LazyMapClass.clj: changed all uses of .. to -> and dot notation.
-> is more flexible than .., also allowing macros and normal functions.

  • Participants
  • Parent commits b3a94ed

Comments (0)

Files changed (1)

File src/de/kotka/lazymap/LazyMapClass.clj

 
 (defn- LazyMapClass-lazyAssoc
   [this k v]
-  (new LazyMapClass (.. this theMap (assoc k v))))
+  (new LazyMapClass (-> this .theMap (.assoc k v))))
 
 ; IObj
 (defn- LazyMapClass-meta
   [this]
-  (.. this theMap (meta)))
+  (-> this .theMap .meta))
 
 (defn- LazyMapClass-withMeta
   [this meta-data]
-  (new LazyMapClass (.. this theMap (withMeta meta-data))))
+  (new LazyMapClass (-> this .theMap (.withMeta meta-data))))
 
 ; IPersistentMap
 (defn- LazyMapClass-assoc
   [this k v]
-  (new LazyMapClass (.. this theMap (assoc k (delay v)))))
+  (new LazyMapClass (-> this .theMap (.assoc k (delay v)))))
 
 (defn- LazyMapClass-assocEx
   [this k v]
 
 (defn- LazyMapClass-without
   [this k]
-  (new LazyMapClass (.. this theMap (without k))))
+  (new LazyMapClass (-> this .theMap (.without k))))
 
 ; Associative
 (defn- LazyMapClass-containsKey
   [this k]
-  (.. this theMap (containsKey k)))
+  (-> this .theMap (.containsKey k)))
 
 (defn- LazyMapClass-entryAt
   [this k]
-  (new LazyMapEntry k (.. this theMap (valAt k))))
+  (new LazyMapEntry k (-> this .theMap (.valAt k))))
 
 (defn- LazyMapClass-valAt
   ([this k]
    (. this valAt k nil))
   ([this k nf]
-   (if (.. this theMap (containsKey k))
-     (force (.. this theMap (valAt k)))
+   (if (-> this .theMap (.containsKey k))
+     (force (-> this .theMap (.valAt k)))
      nf)))
 
 ; Iterable
 ; IPersistentCollection
 (defn- LazyMapClass-count
   [this]
-  (.. this theMap (count)))
+  (-> this .theMap .count))
 
 (defn- LazyMapClass-seq
   [this]
-  (LazyMapSeq-createSeq (.. this theMap (seq))))
+  (LazyMapSeq-createSeq (-> this .theMap .seq)))
 
 (defn- LazyMapClass-cons
   [this o]
 
 (defn- LazyMapClass-empty
   [this]
-  (new LazyMapClass (.. this theMap (empty))))
+  (new LazyMapClass (-> this .theMap .empty)))
 
 ; IFn
 (defn- LazyMapClass-invoke