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

Update primitive? to be a function

Browse source
This commit is contained in:
Joshua Suskalo 2022-01-18 14:00:13 -06:00
parent 634f371144
commit 6ba905e6bf
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -518,11 +518,16 @@
(sequential? type) (keyword (first type)) (sequential? type) (keyword (first type))
:else (throw (ex-info "Invalid type object" {:type type})))) :else (throw (ex-info "Invalid type object" {:type type}))))
(def primitive? (def primitive-types
"A set of all primitive types." "A set of all primitive types."
#{::byte ::short ::int ::long ::long-long #{::byte ::short ::int ::long ::long-long
::char ::float ::double ::pointer}) ::char ::float ::double ::pointer})
(defn primitive?
"A predicate to determine if a given type is primitive."
[type]
(contains? primitive-types (type-dispatch type)))
(defmulti primitive-type (defmulti primitive-type
"Gets the primitive type that is used to pass as an argument for the `type`. "Gets the primitive type that is used to pass as an argument for the `type`.