avoid reflection

Author: borkdude

notebooks/qualified_methods.clj

@@ -1,4 +1,5 @@
-(ns qualified-methods)
+(ns qualified-methods
+  {:nextjournal.clerk/no-cache true})
 
 (String/.length "foo")
 
@@ -10,12 +11,10 @@ Integer/parseInt ;; method value
 
 String/CASE_INSENSITIVE_ORDER ;; field
 
-;; TODO: get rid of reflection
 (String/new "dude") ;; constructor
 
-String/new
+^[String] String/new
 
-(map String/new ["dude"])
+(map ^[String] String/new ["dude"])
 
 (map Integer/parseInt ["1" "2" "3"])
-

tools-analyzer/nextjournal/clerk/clojure/tools/analyzer/jvm.clj

@@ -136,7 +136,7 @@
           (cond
             (= "new" opname)
             `(fn
-               ([x#] (new ~(symbol sym-ns) x#))
+               ([x#] (new ~(symbol sym-ns) x# d))
                ;; TODO: analyze method and return properly expanded fn
                )
             (or (.startsWith opname ".")
@@ -669,5 +669,5 @@
 
   (macroexpand-1 'clojure.lang.Compiler/LOADER)
   (macroexpand-1 '(String/new "foo"))
-  (macroexpand-1 'String/new)
+
   )