Skip to content

Commit 8de2803

Browse files
committed
Use proper interop for hash-set
Signed-off-by: James Hamlin <jfhamlin@gmail.com>
1 parent 2e7b90b commit 8de2803

File tree

3 files changed

+54
-43
lines changed

3 files changed

+54
-43
lines changed

pkg/stdlib/clojure/core.glj

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -394,7 +394,7 @@
394394
:static true}
395395
([] #{})
396396
([& keys]
397-
(clojure.lang.PersistentHashSet/create keys)))
397+
(apply github.com:glojurelang:glojure:pkg:lang.NewSet keys)))
398398

399399
(defn sorted-map
400400
"keyval => key val
@@ -7921,7 +7921,7 @@ fails, attempts to require sym's namespace and retries."
79217921
:added "1.11"}
79227922
^go/int64 [^go/string s]
79237923
(if (string? s)
7924-
(clojure.core/let [result__3648__auto__ (strconv.ParseInt s 10 64)] (if (result__3648__auto__ 1) nil (result__3648__auto__ 0)))
7924+
(clojure.core/let [result__3646__auto__ (strconv.ParseInt s 10 64)] (if (result__3646__auto__ 1) nil (result__3646__auto__ 0)))
79257925
(throw (github.com:glojurelang:glojure:pkg:lang.NewIllegalArgumentError (parsing-err s)))))
79267926

79277927
(defn parse-double
@@ -7932,7 +7932,7 @@ fails, attempts to require sym's namespace and retries."
79327932
:added "1.11"}
79337933
^go/float64 [^go/string s]
79347934
(if (string? s)
7935-
(clojure.core/let [result__3649__auto__ (strconv.ParseFloat s 64)] (if (result__3649__auto__ 1) nil (result__3649__auto__ 0)))
7935+
(clojure.core/let [result__3647__auto__ (strconv.ParseFloat s 64)] (if (result__3647__auto__ 1) nil (result__3647__auto__ 0)))
79367936
(throw (github.com:glojurelang:glojure:pkg:lang.NewIllegalArgumentError (parsing-err s)))))
79377937

79387938
(defn parse-uuid

pkg/stdlib/clojure/core/loader.go

Lines changed: 49 additions & 40 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

scripts/rewrite-core/rewrite.clj

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -292,6 +292,8 @@
292292
'(github.com:glojurelang:glojure:pkg:lang.CreatePersistentTreeSet keys))
293293
(sexpr-replace '(clojure.lang.PersistentTreeSet/create comparator keys)
294294
'(github.com:glojurelang:glojure:pkg:lang.CreatePersistentTreeSetWithComparator comparator keys))
295+
(sexpr-replace '(clojure.lang.PersistentHashSet/create keys)
296+
'(apply github.com:glojurelang:glojure:pkg:lang.NewSet keys))
295297

296298
(sexpr-replace 'clojure.lang.Cycle/create 'github.com:glojurelang:glojure:pkg:lang.NewCycle)
297299

0 commit comments

Comments
 (0)