hide everything except builder

Author: swannodette

src/main/cljs/cljs/proxy.cljs

@@ -1,29 +1,17 @@
 (ns cljs.proxy
-  (:refer-global :only [Proxy isNaN]))
-
-(deftype SimpleCache [^:mutable obj ^:mutable cnt]
-  Object
-  (set [this k v]
-    (when (== cnt 1024)
-      (.clear this))
-    (unchecked-set obj k v)
-    (set! cnt (inc cnt))
-    v)
-  (get [this k]
-    (unchecked-get obj k))
-  (clear [this]
-    (set! obj #js {})
-    (set! cnt 0)))
-
-(defn write-through [f]
+  (:refer-global :only [Proxy isNaN])
+  (:require [cljs.proxy.impl :refer [SimpleCache]]))
+
+(defn- write-through [f]
   (let [cache (SimpleCache. #js {} 0)]
     (fn [x]
       (let [v (.get cache x)] 
         (if (some? v)
           v
           (.set cache x (f x)))))))
 
-(def desc
+(def ^{:private true}
+  desc
   #js {:configurable true
        :enumerable   true})
 

src/main/cljs/cljs/proxy/impl.cljs

@@ -0,0 +1,15 @@
+(ns cljs.proxy.impl)
+
+(deftype SimpleCache [^:mutable obj ^:mutable cnt]
+  Object
+  (set [this k v]
+    (when (== cnt 1024)
+      (.clear this))
+    (unchecked-set obj k v)
+    (set! cnt (inc cnt))
+    v)
+  (get [this k]
+    (unchecked-get obj k))
+  (clear [this]
+    (set! obj #js {})
+    (set! cnt 0)))