Expose find-symbol and allow named

This commit is contained in:
Joshua Suskalo 2021-09-17 10:50:01 -05:00
parent 4215e2a398
commit f3ee51ea11

View file

@ -477,10 +477,10 @@
[path] [path]
(System/load (.getAbsolutePath (io/file path)))) (System/load (.getAbsolutePath (io/file path))))
(defn- find-symbol (defn find-symbol
"Gets the [[MemoryAddress]] of a symbol from the loaded libraries." "Gets the [[MemoryAddress]] of a symbol from the loaded libraries."
[sym] [sym]
(.. (CLinker/systemLookup) (lookup sym) (orElse nil))) (.. (CLinker/systemLookup) (lookup (name sym)) (orElse nil)))
(defn- method-type (defn- method-type
"Gets the [[MethodType]] for a set of `args` and `ret` types." "Gets the [[MethodType]] for a set of `args` and `ret` types."