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

Allow expressions that evaluate to types in defalias

Browse source
This commit is contained in:
Joshua Suskalo 2022-01-10 13:34:58 -06:00
parent 95856cb4f3
commit 49f9e60b11
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/clj/coffi/mem.clj
View file

@ -781,7 +781,8 @@
aliased type." aliased type."
{:style/indent [:defn]} {:style/indent [:defn]}
[new-type aliased-type] [new-type aliased-type]
(if (primitive-type aliased-type) (if (and (s/valid? ::type aliased-type)
(primitive-type aliased-type))
`(let [aliased# ~aliased-type] `(let [aliased# ~aliased-type]
(defmethod primitive-type ~new-type (defmethod primitive-type ~new-type
[_type#] [_type#]
@ -804,4 +805,4 @@
(deserialize-from segment# aliased#))))) (deserialize-from segment# aliased#)))))
(s/fdef defalias (s/fdef defalias
:args (s/cat :new-type qualified-keyword? :args (s/cat :new-type qualified-keyword?
:aliased-type ::type)) :aliased-type any?))