Compare commits
4 commits
master
...
sci-IRecor
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
e80cbf2779 | ||
|
|
0e2d936cf6 | ||
|
|
5398646641 | ||
|
|
5d9a6b2b30 |
3 changed files with 4 additions and 6 deletions
2
sci
2
sci
|
|
@ -1 +1 @@
|
||||||
Subproject commit 5e4978df1f935f38bbf902ec962ec9690d8eaedd
|
Subproject commit 248fcaf7873416b1a895510ce715a5d9b5e143fd
|
||||||
|
|
@ -11,10 +11,6 @@
|
||||||
;; get: 'Not implemented: seq', because print-method thought this object was
|
;; get: 'Not implemented: seq', because print-method thought this object was
|
||||||
;; seqable, while in fact, it wasn't.
|
;; seqable, while in fact, it wasn't.
|
||||||
|
|
||||||
(defn method-or-bust [methods k]
|
|
||||||
(or (get methods k)
|
|
||||||
(throw (UnsupportedOperationException. "Method not implemented: " k))))
|
|
||||||
|
|
||||||
(defmacro gen-reify-combos
|
(defmacro gen-reify-combos
|
||||||
"Generates pre-compiled reify combinations"
|
"Generates pre-compiled reify combinations"
|
||||||
[methods]
|
[methods]
|
||||||
|
|
@ -120,7 +116,8 @@
|
||||||
equiv [[this x]]}
|
equiv [[this x]]}
|
||||||
|
|
||||||
clojure.lang.IReduce
|
clojure.lang.IReduce
|
||||||
{reduce [[this f]]}
|
{reduce [[this f]
|
||||||
|
[this f init]]}
|
||||||
|
|
||||||
clojure.lang.IReduceInit
|
clojure.lang.IReduceInit
|
||||||
{reduce [[this f initial]]}
|
{reduce [[this f initial]]}
|
||||||
|
|
|
||||||
|
|
@ -33,6 +33,7 @@
|
||||||
(let [namespaces (seq (filter test-namespace? namespaces))]
|
(let [namespaces (seq (filter test-namespace? namespaces))]
|
||||||
(when (seq namespaces)
|
(when (seq namespaces)
|
||||||
(doseq [n namespaces]
|
(doseq [n namespaces]
|
||||||
|
(println "Requiring" n)
|
||||||
(require n)
|
(require n)
|
||||||
(filter-vars! (find-ns n) #(-> % meta ((some-fn :skip-bb
|
(filter-vars! (find-ns n) #(-> % meta ((some-fn :skip-bb
|
||||||
:test-check-slow)) not)))
|
:test-check-slow)) not)))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue