Remove IState public API from CLJS

src/promesa/core.cljc

@@ -101,29 +101,34 @@
 
 ;; Predicates
 
-(defn resolved?
-  "Returns true if promise `p` is already fulfilled."
-  [p]
-  (pt/-resolved? p))
-
-(defn rejected?
-  "Returns true if promise `p` is already rejected."
-  [p]
-  (pt/-rejected? p))
-
-(defn pending?
-  "Returns true if promise `p` is stil pending."
-  [p]
-  (pt/-pending? p))
-
-(defn extract
-  "Returns the current promise value."
-  [p]
-  (pt/-extract p))
-
-(def done?
-  "Returns true if promise `p` is already done."
-  (complement pending?))
+#?(:clj
+   (defn resolved?
+     "Returns true if promise `p` is already fulfilled."
+     [p]
+     (pt/-resolved? p)))
+
+#?(:clj
+   (defn rejected?
+     "Returns true if promise `p` is already rejected."
+     [p]
+     (pt/-rejected? p)))
+
+#?(:clj
+   (defn pending?
+     "Returns true if promise `p` is stil pending."
+     [p]
+     (pt/-pending? p)))
+
+#?(:clj
+   (defn extract
+     "Returns the current promise value."
+     [p]
+     (pt/-extract p)))
+
+#?(:clj
+   (def done?
+     "Returns true if promise `p` is already done."
+     (complement pending?)))
 
 ;; Chaining
 

src/promesa/protocols.cljc

@@ -28,12 +28,13 @@
     "Apply function to a computation identpendently if is failed or
     successful; the return value is ignored."))
 
-(defprotocol IState
-  "Additional state/introspection abstraction."
-  (-extract [_] "Extract the current value.")
-  (-resolved? [_] "Returns true if a promise is resolved.")
-  (-rejected? [_] "Returns true if a promise is rejected.")
-  (-pending? [_] "Retutns true if a promise is pending."))
+#?(:clj
+   (defprotocol IState
+     "Additional state/introspection abstraction."
+     (-extract [_] "Extract the current value.")
+     (-resolved? [_] "Returns true if a promise is resolved.")
+     (-rejected? [_] "Returns true if a promise is rejected.")
+     (-pending? [_] "Retutns true if a promise is pending.")))
 
 (defprotocol IPromiseFactory
   "A promise constructor abstraction."