luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wip

Browse source
This commit is contained in:
Michiel Borkent 2021-03-04 11:28:22 +01:00
parent 0655f39dc9
commit e4ba7ef56f
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/babashka/impl/reify.clj
View file

@ -1,6 +1,7 @@
(ns babashka.impl.reify (ns babashka.impl.reify
{:no-doc true} {:no-doc true}
(:require [clojure.math.combinatorics :as combo])) (:require [clojure.math.combinatorics :as combo]
[sci.impl.types]))
(set! *warn-on-reflection* false) (set! *warn-on-reflection* false)
@ -10,9 +11,10 @@
(let [subsets (rest (combo/subsets (seq methods)))] (let [subsets (rest (combo/subsets (seq methods)))]
(reduce (fn [opts classes] (reduce (fn [opts classes]
(assoc opts (assoc opts
(set (map (fn [[class _]] (set (cons (list 'quote 'sci.impl.types.IReified)
(list 'quote class)) (map (fn [[class _]]
classes)) (list 'quote class))
classes)))
(list 'fn ['methods] (list 'fn ['methods]
(list* 'reify (list* 'reify
(mapcat (mapcat