Compare commits

...

4 commits

Author SHA1 Message Date
Michiel Borkent
e80cbf2779 fix 2022-03-13 11:36:18 +01:00
Michiel Borkent
0e2d936cf6 wip 2022-03-13 11:25:50 +01:00
Michiel Borkent
5398646641 Add require msg [skip ci] 2022-03-12 23:28:00 +01:00
Michiel Borkent
5d9a6b2b30 wip 2022-03-12 23:20:02 +01:00
3 changed files with 4 additions and 6 deletions

2
sci

@ -1 +1 @@
Subproject commit 5e4978df1f935f38bbf902ec962ec9690d8eaedd Subproject commit 248fcaf7873416b1a895510ce715a5d9b5e143fd

View file

@ -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]]}

View file

@ -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)))