Skip to content

Commit 7f79ac9

Browse files
bronsastuarthalloway
authored andcommitted
CLJ-130: preserve metadata for AOT compiled namespaces
Signed-off-by: Stuart Halloway <[email protected]>
1 parent 0db40b3 commit 7f79ac9

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/clj/clojure/core.clj

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5573,9 +5573,11 @@
55735573
(list* `gen-class :name (.replace (str name) \- \_) :impl-ns name :main true (next gen-class-clause)))
55745574
references (remove #(= :gen-class (first %)) references)
55755575
;ns-effect (clojure.core/in-ns name)
5576-
]
5576+
name-metadata (meta name)]
55775577
`(do
55785578
(clojure.core/in-ns '~name)
5579+
~@(when name-metadata
5580+
`((.resetMeta (clojure.lang.Namespace/find '~name) ~name-metadata)))
55795581
(with-loading-context
55805582
~@(when gen-class-call (list gen-class-call))
55815583
~@(when (and (not= name 'clojure.core) (not-any? #(= :refer-clojure (first %)) references))

0 commit comments

Comments
 (0)