Support intern

Signed-off-by: James Hamlin <jfhamlin@gmail.com>

Author: jfhamlin

pkg/stdlib/clojure/core.glj

@@ -6308,11 +6308,11 @@ fails, attempts to require sym's namespace and retries."
   {:added "1.0"
    :static true}
   ([ns ^github.com:glojurelang:glojure:pkg:lang.*Symbol name]
-     (let [v (clojure.lang.Var/intern (the-ns ns) name)]
+     (let [v (github.com:glojurelang:glojure:pkg:lang.InternVarName (the-ns ns) name)]
        (when (meta name) (.setMeta v (meta name)))
        v))
   ([ns name val]
-     (let [v (clojure.lang.Var/intern (the-ns ns) name val)]
+     (let [v (github.com:glojurelang:glojure:pkg:lang.InternVar (the-ns ns) name val true)]
        (when (meta name) (.setMeta v (meta name)))
        v)))
 

pkg/stdlib/clojure/core/loader.go

@@ -158,6 +158,10 @@
         (instance? go/uint32 x)
         (instance? go/uint16 x)
         (instance? go/uint8 x))
+
+   ;; intern
+   '(clojure.lang.Var/intern (the-ns ns) name) '(github.com:glojurelang:glojure:pkg:lang.InternVarName (the-ns ns) name)
+   '(clojure.lang.Var/intern (the-ns ns) name val) '(github.com:glojurelang:glojure:pkg:lang.InternVar (the-ns ns) name val true)
    })
 
 (defn create-simple-replacements