|
163 | 163 |
|
164 | 164 | ;; ---------------------------------------------------------------------------- |
165 | 165 |
|
166 | | -(declare+ ^number hash-datom [d]) |
| 166 | +#?(:cljs (declare+ ^number hash-datom [d]) :clj (declare hash-datom)) |
167 | 167 |
|
168 | | -(declare+ ^boolean equiv-datom [d o]) |
| 168 | +#?(:cljs (declare+ ^boolean equiv-datom [d o]) :clj (declare equiv-datom)) |
169 | 169 |
|
170 | | -(declare+ seq-datom [d]) |
| 170 | +#?(:cljs (declare+ seq-datom [d]) :clj (declare seq-datom)) |
171 | 171 |
|
172 | | -(declare+ nth-datom [d i] [d i not-found]) |
| 172 | +#?(:cljs (declare+ nth-datom [d i] [d i not-found]) :clj (declare nth-datom)) |
173 | 173 |
|
174 | | -(declare+ assoc-datom [d k v]) |
| 174 | +#?(:cljs (declare+ assoc-datom [d k v]) :clj (declare assoc-datom)) |
175 | 175 |
|
176 | | -(declare+ val-at-datom [d k not-found]) |
| 176 | +#?(:cljs (declare+ val-at-datom [d k not-found]) :clj (declare val-at-datom)) |
177 | 177 |
|
178 | 178 | (defprotocol IDatom |
179 | 179 | (datom-tx [this]) |
|
584 | 584 |
|
585 | 585 | ;; ---------------------------------------------------------------------------- |
586 | 586 |
|
587 | | -(declare+ ^number hash-db [db]) |
| 587 | +#?(:cljs (declare+ ^number hash-db [db]) :clj (declare hash-db)) |
588 | 588 |
|
589 | | -(declare+ ^number hash-fdb [db]) |
| 589 | +#?(:cljs (declare+ ^number hash-fdb [db]) :clj (declare hash-fdb)) |
590 | 590 |
|
591 | | -(declare+ ^boolean equiv-db [db other]) |
| 591 | +#?(:cljs (declare+ ^boolean equiv-db [db other]) :clj (declare equiv-db)) |
592 | 592 |
|
593 | | -(declare+ restore-db [keys]) |
| 593 | +#?(:cljs (declare+ restore-db [keys]) :clj (declare restore-db)) |
594 | 594 |
|
595 | | -(declare+ ^boolean indexing? [db attr]) |
| 595 | +#?(:cljs (declare+ ^boolean indexing? [db attr]) :clj (declare indexing?)) |
596 | 596 |
|
597 | 597 | #?(:cljs |
598 | 598 | (declare+ pr-db [db w opts])) |
599 | 599 |
|
600 | | -(declare+ resolve-datom [db e a v t default-e default-tx]) |
| 600 | +#?(:cljs (declare+ resolve-datom [db e a v t default-e default-tx]) :clj (declare resolve-datom)) |
601 | 601 |
|
602 | | -(declare+ components->pattern [db index c0 c1 c2 c3 default-e default-tx]) |
| 602 | +#?(:cljs (declare+ components->pattern [db index c0 c1 c2 c3 default-e default-tx]) :clj (declare components->pattern)) |
603 | 603 |
|
604 | 604 | ;;;;;;;;;; Fast validation |
605 | 605 |
|
|
1122 | 1122 |
|
1123 | 1123 | ;; ---------------------------------------------------------------------------- |
1124 | 1124 |
|
1125 | | -(declare+ ^number entid-strict [db eid]) |
| 1125 | +#?(:cljs (declare+ ^number entid-strict [db eid]) :clj (declare entid-strict)) |
1126 | 1126 |
|
1127 | | -(declare+ ^boolean ref? [db attr]) |
| 1127 | +#?(:cljs (declare+ ^boolean ref? [db attr]) :clj (declare ref?)) |
1128 | 1128 |
|
1129 | 1129 | (defn+ resolve-datom [db e a v t default-e default-tx] |
1130 | 1130 | (when (some? a) |
|
0 commit comments